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■  Computerspil  bliver  først 
rigtig  gode,  når  der  kommer 
lyd  på.  Ville  du  ikke  blive 
dødtrist  til  mode  over  et  luft¬ 
kampspil,  hvor  jagerne  dø¬ 
de  uden  at  ’ 'protestere" .  El¬ 
ler  racerbanen  ligger  hen  i 
tavshed,  som  om  nogen  har 
lagt  en  pude  over  udstød¬ 
ningsrørene? 

Alle  computere  har  lydkana¬ 
ler  indbygget.  Blot  program¬ 
meres  de  ikke  på  samme 
måde.  Alligevel  lindes  der 
lighedspunkter,  som  vi  kan 
udnytte  i  en  række  småruti- 
ner  til  Commodore  64,  Spec¬ 
trum  og  Texas  TI-99/4A.  Ruti¬ 
nerne  kan  nemt  indbygges 
som  underprogrammer  i  eksi¬ 
sterende  spil  ved  hjælp  al 
GOSUB  kommandoer,  Husk 
blot  at  trykke  RETURN  i  slutnin¬ 
gen  al  hver  lydellekt  listning. 

Småtips  til 
lydnarkomaner 

Hvis  du  1  .eks.  vil  lægge  lyd  til 
en  nedstyrtende  flyver,  er  det 
nemmest  at  lave  en  melodi- 
lølge,  som  går  Ira  en  høj  til  en 
lav  tone.  Melodirækken  skal 
køre  så  hurtigt,  at  man  ikke 
hører  de  enkelte  toner,  men 
kun  et  længere  pilt.  Dette  gø¬ 
res  nemmest  ved  at  lade 
samtlige  toner  indgå  i  en 
FOR.  .  .NEXT løkke. 

Gælder  det  om  at  skabe  et  fa¬ 
resignal,  bruger  vi  den  mod¬ 
satte  melodirække.  Så  opnår 
vi  lige  præcis  den  alarmlyd, 
som  kendes  Ira  spændings- 
lilm.  Det  er  en  god  idé  at  lade 
tonerækken  køre  igennem 
en  FOR .  .  .  NEXT  løkke  tre-lire 
gange.  Så  lyder  det  virkelig 
farligt . 

Lyden  al  en  kørende  bil  frem¬ 
bringes  ved  hjælp  al  sus,  der 
køres  via  filtre,  så  vi  til  sidst  op¬ 
når  en  brummelyd.  Hvis  vi 
forvrænger  fire  forskellige  to¬ 
ner  elter  hinanden,  opnår  vi 
lyden  Ira  et  gearskilte. 
Selvfølgelig  kan  de  viste  lyd¬ 
effekter  bruges  i  mange  an¬ 
dre  sammenhænge.  F.eks. 
egner  nedstyrtnings-rutinen 
sig  fint  til  kollisioner  o. lign. 


Lydeffekter  til  Icc**«! 
Commodore  64  I  “S?  I 

Lydkredsens  basisadresse  er 
54272.  Da  computeren  kun 
accepterer  de  to  første  karak¬ 
terer  i  en  variabel,  forkortede 
vi  variablen  BASIS  til  BA.  HI  er 
tilsvarende  frekvensen  HI- 
byte.  Til  gengæld  kan  vi  godt 
undvære  LO-byte. 

REM  Nedstyrt 
10  BASIS  =  54272 
20  POKE  BA +  24, 15 
30POKE  BA +  6,  15*16 
40  FOR  HI  =  80  TO 
10  STEP -1 
50  POKE  BA+1,  HI 
60  POKE  BA +  4, 17 
70  FOR  X  =  0  TO  10: 

NEXT  X 
80  NEXT  HI 
90  POKE  BA  +  24,0 
I  linie  20  fremkommer  den 
højeste  lydstyrke .  15*161  linie 
30  sørger  for  en  varig  tone.  I 
linie  40  fastsættes  frekvenser¬ 
ne.  Med  17  i  linie  60  opstår 
en  trekant,  som  kan  erstattes 
med  værdien  33.  FOR.. 
NEXT  sløjfen  i  linie  70  sikrer 
den  nødvendige  tidsforskyd¬ 
ning. 

REM  Pointtab 

10  BASIS  =  54272 :Tone  =  15 
20  FOR  HI  =  60  TO 
48  STEP  -2 

30  POKE  BA  +  24,  TONE 
40  POKE  BA +  6,  15*16 
50  POKE  BA  +  1 ,  HI 
60  POKE  BA +  4, 17 
70  FOR  X  =  0  TO  100: 

NEXT  X 

80  TONE  =  TONE- 1 
90  NEXT  HI 
100  BA +  24,0 

Programmet  minder  om  det 
forrige,  blot  reduceres  lydstyr¬ 
ken  for  hvert  gennemløb. 


REM  Alarm  «e 

10  BASIS  =  54272  \ 

20  FOR  Y  =  1  TO  5  \ 

30  TONE  =  10 
40  FOR  HI  =  70  TO 
100  STEP  2 

50  POKE  BA  +  24,  TONE 
60  POKE  BA +  6,  15*16 
70  POKE  BA+1, HI 
80  POKE  BA +  4,33 
90  TONE  =  TONE  +  1 
100  IF  TONE  14  THEN 
TONE  =15 
110  NEXT  HI 
120  NEXT  Y 
130  POKE  BA +  24,0 
Forskellen  til  "nedstyrt"  ligger 
i,  at  lyden  hæves  i  nivea  fra 
10  til  15.  Med  Y=  1  TO  5 sikrer 
vi,  at  alarmen  gennemkøres 
fem  gange.  Linie  100  er  nød¬ 
vendig  fordi  enhver  lydstyr¬ 
keværdi  over  15  afstedkom¬ 
mer  en  fejlmelding. 
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Lydeffekter 
til  Spectrum 


Lydeffekter  til 
Texas  TI-99/4A 


REM  Nedstyrt 
10  FOR  X  =  24  TO 
12  STEP  -0.1 
20  BEEP  0.01  ,x 
30  NEXT  X 

Afspillehastigheden  i  linie  20 
kan  ændres  efter  behov. 

REM  Alarm 
10  FOR  y  =  0  TO  2 
20  FOR  x  =  0  TO  12 
30  BEEP  0.02,x 
40  NEXT  x 
50  NEXT  y 

En  hel  toneskala  afspilles  i 
halvtoneskridt.  Tidskonstan¬ 
ten  0.02  kan  igen  ændres  ef¬ 
ter  behov.  Ved  hjælp  af  FOR 
.  .  .  NEXT  sløjferne  i  linie  10  og 
50  gentages  forløbet  3  gange . 
REM  Pointtab 
10  FOR  x=  12  TO  1  STEP  -1 
20  BEEP  0.05,x 
30  NEXT  x 

Værdierne  X=  12  TO  1  frem¬ 
kommer  toneskalaens  C  til 
Cis,  afspillet  baglæns. 

REM  Sejrsmelodi 
10  FOR  y  =  0  TO  4 
20  READ  v.t 
30  BEEP  v.t 
40  NEXT  y 

50  DATA  0. 1 ,7,0. 1 ,4,0. 1 ,4 
60  DATA  0.5, 9, 0.6, 7 

I  denne  listning  gennemspil¬ 
les  en  lille  melodi  bestående 
af  tonerne  G,E,F  og  A.  Forkor¬ 
telsen  v,t  står  for '  'varig  tone ' ' . 


& 


På  Texas-computeren  kaldes 
tonerne  frem  ved  deres  fre¬ 
kvenser.  Bemærk  i  det  føl¬ 
gende  program  linie  10,  hvor 
frekvenserne  fra  550  til  250  Hz 
afspilles  med  50Hz  spring. 
Med  CALL  SOUND  afspilles  to¬ 
nen  X  med  lydstyrken  0  og 
varigheden  1 . 

REM  Pointtab 
10  FOT  X  =  550  TO 
250  STEP  -50 
20  CALL  SOUND  (1  ,X,0) 

30  NEXT  X 

Eller  i  en  anden  version: 
10  CALL  SOUND 

(100,220,0) 

20  CALL  SOUND 

(100,175,0) 

30  CALL  SOUND  (200,-3,0) 

I  det  følgende  "alarm"  pro¬ 
gram  bruger  vi  ret  høje  fre¬ 
kvenser.  Med  værdien 
- 1 000  i  linie  30  opnår  vi,  at 
tonerne  lires  hurtigt  af.  Med 
-1  tilføjer  vi  en  periodevis  su¬ 
sen,  så  hele  lydeffekten  får  et 
mere  farligt  præg. 

REM  Alarm 
10  FOR  Y  =  1  TO  3 
20  FOT  X=  1500  TO 
2500  STEP  250 
30  CALL  SOUND 

(-1000,  X, 0,-1, 0) 

40  NEXT  X 
50  NEXT  Y 

Vi  har  også  en  sejrsmelodi 
parat  til  Texas-computeren: 

REM  Sejrsmelodi 
10  CALL  SOUND 
(100,392,0) 

30  CALL  SOUND 

(100,392,0,330,0) 

40  CALL  SOUND 

(200,440,0,392,0) 

50  CALL  SOUND 

(200,392,0,330,0).  □ 

Christian  Jensen 
^  og  Leif  Bomberg 
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A.  Foruddefinerede 
instruktioner 

1  FREM 

Kommandoen  FREM(n) 
bruges  til  at  flytte  "Skild¬ 
padden  "(n).  Punkter  eller 
Pixels  i  midlertidig  retning, 

-  Se  BAK(n). 

2  BAK 

Bmges  som  FREM(n)  til  at 
flytte  skildpadden  n  Pixels 
i  modsat  retning. 

3  FLYV 

FLYV  bevirker,  at  skild¬ 
padden  ikke  sætter  spor, 
når  den  bevæger  sig. 

-  Se  KRAVL. 

4.  KRAVL 

KRAVL  tår  skildpadden  til. 
modsat  FLYV.  at  sætte 
spor  under  flytning. 

5.  HENT 

Alle  nulærte  kommando¬ 
er  hentes  Ira  bånd  eller 
Microdrive. 

-  Se  GEM. 

6.  GEM 

Gemmer  alle  nye  kom¬ 
mandoer  på  bånd  eller 
Microdrive. 

7.  HUSK 

Dette  er  kommandoen  til 
at  lære  computeren  en 
ny  kommando.  Skriv 
HUSK  (enter)  VIFTE  (enter). 
Computeren  vil  da  skrive 
navnet  VIFTE  øverst  på 
skærmen.  Dernæst  kan 
skrives  kommandoer  (bå¬ 
de  originale  og  nye)  ind, 
som  bliver  lagret  og  skre¬ 
vet.  Der  sluttes  at  med 
SLUT.  Tre  kommandoer 
kan  kun  bruges  i  indlæ¬ 
ringstasen.  De  er:  SLUT. 
GENTAG(n)  og  HERTIL.  Se 
disse. 

8.  SLUT 

I  indlæringstasen  bevir¬ 
ker  SLUT  at  computeren 
returnerer  til  kommando- 
lasen. 

9.  GENTAG 

GENTAG(n)  vil  gentage 
de  efterfølgende  kom¬ 
mandoer  indtil  HERTIL  in¬ 
struktionen  n  gange.  Be¬ 
mærk  at  GENTAG  kun 
kan  bmges  i  indlærings¬ 
tasen. 

-  Se  HERTIL 

10.  HERTIL 

Hopper  tilbage  til 
GENTAG-kommandoen. 
indtil  dette  er  gjort  de  an¬ 
tal  gange  som  beskrevet 
under  GENTAG.  Derefter 
fortsættes  med  næste 
kommando. 


1 1 .  NORD 

Får  skildpadden  til  at 
pege  mod  nord  (opad). 

12.  RENS 

Sletter  skærmen,  flytter 
skildpadden  til  midten  at 
skærmen,  ljemer  SNORen 
hvis  den  er  sat  og  udtører 
KR  AVL-instruktion . 

13.  KOPI 

Kopierer  skærmbilledet  til 
ZX  PRINTER. 

13.  TEGNING 

Viser  tegningen. 

15.  SNOR 

Får  skildpadden  til  at 
hamre  et  søm  i,  hvor  den 
står.  for  dernæst  at  binde 
en  snor  om  sømmet . 

-  Se  STRAM. 

16.  STRAM 

Får  skildpadden  til  at 
stramme  snoren.  Dette 
bevirker,  at  en  streng  bli¬ 
ver  tegnet  mellem  søm¬ 
met  (skildpaddens  place¬ 
ring  ved  SNOR-instruktio- 
nen)  og  den  nuværende 
placering.  Snoren  sidder 
stadig  på  sømmet. 

17.  LIST 

Skriv  LIST  (enter)  og  så 
navnet  på  en  nylært  in¬ 
struktion.  Den  vil  da  blive 
udskrevet  på  skærmen. 

18.  HØJRE 

(Skrives  HØJRE  med  ø'et 
som  et  nul!).  HØJRE(n)  lår 
skildpadden  til  at  dreje  n 
grader  mod  højre. 

-Se  VENSTRE. 

19.  VENSTRE 

VENSTRE(n)  lår  skildpad¬ 
den  til  at  dreje  n  grader 
mod  venstre. 


B.  Fejlkoder 

Nr.  Fejltekst _ Forklaring _ 

1 .  Ikke  her .  En  al  instruktionerne  GENTAG,  HERTIL  el¬ 

ler  SLUT  er  blevet  udiørt  i  normal  kom- 
mandolase. 

2 .  Udelineret  ord .  Kommandoen  er  ikke  defineret . 

3 .  Lager  tomt .  Der  er  forsøgt  LIST  i  et  tomt  lager . 

4.  Snor  ikke  sat.  Kommandoen  STRAM  er  udiørt  uden 

tørst  at  have  udiørt  SNOR  eller  måske  er 
RENS  udiørt  i  mellemtiden. 

5.  Er  defineret.  Navnet  findes  i  forvejen. 

C.  Programeksempler 

VIFTE  FIRKANT  BLOMST 

RENS  GENTAG(4)  RENS 

RENS  FREM(40)  GENTAG(13) 

GENTAG(10)  HØJRE(90)  FIRKANT 

FLYV  HERTIL  HØJRE(360/13) 

FREM(16)  SLUT  HERTIL 

HØJRE(360/13)  SLUT 

KRAVL 
STRAM 
HERTIL 
SLUT 


D.  Indtastning  af  et 
nyt  ord 

Vi  vil  lære  maskinen  det 
ovenstående  ord  VIFTE,  Skriv 
iølgende:  (efter  hver  linie 
trykkes  ENTER!). 

HUSK 

VIFTE 

RENS 

SNOR 

GENTAG  10 
FLYV 
FREM  16 
HØJRE  360/10 
KRAVL 
STRAM 
HERTIL 
SLUT 

Nu  har  maskinen  lært  ordet 
VIFTE.  Prøv  at  skrive! 

VIFTE. 
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Månelokomotiv 


Del  lyder  noget  science- 
fiction-agtig.  og,  det  er  det  og¬ 
så,  Kunne  du  tænke  dig  at 
være  lokomotivfører  på  Må¬ 
nen,  den  dag  Tjæreborg,  Spi- 
es  og  DSB  tår  lagt  en  jernbane 
på  tværs  at  trabanten? 

1  dette  Commodore  64  spil  tår 

du  lejlighed  til  at  lege  loko¬ 
motivfører,  og  arbejdet  er  - 
mindst  lige  så  krævende  og 
farligt  som  i  de  gode  gamle 
Western-dage  med  overfald  - 
og  indianerangreb.  f 

På  Månen  er  det  blot  UFO 'er 
og  miner,  som  volder  dig  be¬ 
svær.  Nogle  forsvarsmulighe-  ; 
der  har  du  dog.  Du  kan  hop¬ 
pe  med  H-tasten  og  skyde 
tjender  ned  med  SPACE. 

Kurt  Andersen 

2  G0T03000 


L 
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■  Skriver  du  tit  officielle  bre¬ 
ve?  Laver  du  tit  skriftlige  op¬ 
gaver,  hvor  det  kræves  at  der 
afleveres  maskinskrevet?  Eller 
kan  du  bare  godt  lide  at  dine 
opgaver  bliver  afleveret  på 
en  pæn  måde? 

Så  er  dette  Piccoloprogram 
det  rigtige  til  dig.  med  en 
tekstbehandling  kan  du  på 
en  let  måde  skrive  dine  tek¬ 
ster  med  en  kvalitet,  der  er 
højere  end  den,  man  normalt 
opnår  med  en  skrivemaski- 


Under  selve  indtastningen 
skriver  du  bare  løs  uden  de 
store  tanker  om,  hvordan  det 
egentlig  kommer  til  at  se  ud. 
Når  det  er  gjort  kan  du  i  ro  og 
mag  sidde  og  rette  på  tek¬ 
sten. 

Du  kan  f.eks.  lave  pæne  af¬ 
snit  og  en  lige  højre  margin. 
Mens  du  på  en  almindelig 
skrivemaskine  brugte  fjumre- 
væske  i  spandevis,  retter  du, 
med  et  tekstbehandlingspro¬ 
gram,  dine  fejl  lige  så  let  som 
du  lavede  dem.  Dette  viste 
program  kan  køre  på  en  PIC¬ 
COLO  med  RcComal80 
(CP/M). 

Som  før  nævnt  skrives  al  tekst 
ved  bare  at  skrive  løs.  Ud 
over  det  kan  alle  PICCO¬ 
LO 'ens  redigeringstaster  an¬ 
vendes.  Det  vil  sige  cursorpi- 
lene,  return,  rubout.  insert. 
delete  samt  clear. 

Desuden  findes  der  en  del 
andre  funktioner,  som  aktive¬ 
res  ved  at  holde  CTRL-tasten 
7nede  samtidig  med  at  man 
trykker  på  den  tast  der  væl¬ 
ger  funktionen.  Disse  er  føl¬ 
gende: 

t  sletter  teksten  linien  ud . 
rubout  sletter  teksten  fra  cur¬ 
sorpositionen  og  resten  af 
skærmen. 

A  anbringer  cursoren  aller- 
forrest  i  teksten.  Hvis  den 
allerede  stod  der,  vil  den 
blive  anbragt  tilsidst  i  tek¬ 
sten. 

S  (status)  fortæller  hvilken  li¬ 
nie  cursoren  står  på,  samt 
hvormange  linier  der  er 
ialt. 

F  (find)  bruges  til  at  finde  et 
bestemt  ord.  Man  indtaster 
det  søgte  ord,  og  cursoren 
vil  blive  flyttet  til  den  første 
forekomst  af  ordet.  Hvis  det 
ikke  findes  får  man  et 
beep  i  stedet  for. 


W(write)  gemmer  teksten  på 
disketten  til  senere  brug. 
Man  skal  bare  indtaste 
det  ønskede  navn. 

R  (read)  læser  en  tekst  fra 
disketten. 

V  flytter  cursoren  12  linier 
længere  frem  i  teksten. 

Y  flytter  den  tilsvarende  til¬ 
bage. 

B  bruges  til  at  indsætte  eller 
slette  hele  linier.  Man  ind¬ 
taster  antallet  af  linier;  po¬ 
sitivt  tal  hvis  man  vil  ind¬ 
sætte,  negativt  hvis  man 
vil  slette. 

P  (printer)  udskriver  teksten 
fra  cursorpositionen  til  slut¬ 
ningen  på  printeren.  Man 
kan  stoppe  udskriften  i  uti¬ 
de  ved  at  trykke  på  en 
tast.  Hvis  printeren  ikke  er 
klar  får  man  et  beep. 

C  (copy)  kopierer  skærmbil¬ 
ledet  over  på  printeren. 

0  indsætter  et  mellemrum  i 
hele  teksten.  (Som  insert). 

Å  sletter  en  karakter  i  hele 
teksten.  (Som  delete). 

D  (del)  deler  en  linie.  Dvs  at 
al  tekst  efter  cursoren  bli¬ 
ver  smidt  ned  på  næste  li¬ 
nie.  Hvis  den  står  midt  i  et 
ord,  vil  der  blive  sat  en 
bindestreg.  Derefter  vil 
cursoren  rykke  en  linie 
ned.  Brugen  af  denne 
funktion  er  en  effektiv  må¬ 
de  at  lave  lige  højremar¬ 
gen  på. 

Endelig  er  der  ESC  der  stopper 
programmet.  Den  spørger 
dog  lige  først. 

Programmet  er,  såvidt  det  nu 
har  været  muligt,  sikret  mod 
fejl.  Men  det  kan  dog  godt 
ske  at  programmet  stopper 
alligevel.  Man  kan  så  prøve 
at  skrive  CON  nogle  gange, 
men  hvis  man  bliver  ved 
med  at  få  den  samme  fejl,  er 
der  ikke  noget  at  gøre.  Tek¬ 
sten  er  tabt.  Hvis  man  får  be¬ 
skeden  'Diskette  fejl'  bør  man 
indsætte  en  anden  diskette. 
CON  virker  iøvrigt  også,  hvis 
man  har  stoppet  programmet 
ved  et  uheld. 

Tilbage  er  så  kun  at  sige  at 
tekstbehandling  er  et  virkeligt 
effektivt  værktøj,  specielt  når 
man  har  sat  sig  ordentlig  ind 
i  det.  Jeg  ved  ihvertfald  med 
mig  selv  at  jeg  nu  kan  skrive 
stile  ind  på  den  halve  tid,  og 
med  et  dobbelt  så  pænt  re¬ 
sultat!  !□ 

Lars  Christensen 
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Her  får  du  din  helt  store  ud¬ 
fordring  i  Gunfight.  hvor  du 
skal  skyde  en  berygtet  bandit 
fra  Mexico. 

Programmet  har  10  svær¬ 
hedsgrader,  og  du  får  svært 
ved  at  skyde  modstanderen  i 
grad  10. 

Indtast  først  program  0  og  run 
det.  Derefter  indtaster  du  pro¬ 
gram  1.  Save  programmet 
med  "GOTO  9998". □ 

Claus  Brock 

I  RER  Program  1 

10  LET  x=0:  POR  n*USR  "o"  TO  USR  "a"*l 
67:  READ  a:  POKE  n,a:  LET  x*x»e  :  NEXT  n. 
IF  x<> 11652  THEN  PRINT  FLASH  I  i 'FEJL  ' 
I  DATA" :  STOP 

20  FOR  n  =  144  TO  164:  PRINT  CHR*  n  i  :  NE 
XT  n:  PRINT  FLASH  I*’ "TRYK  PAA  EN  TAST 
NAAR  OU  ER  KLARTIL  AT  INDTASTE  PROGRAM  2 
" :  PAUSE  ø :  NEW 

30  OATA  0,16,56,56,56,56,124,0,0,112,2 


b" {AT  P lati , 1  i -c" iAT  p I b , 30  i  INK  2|“ I " JA 
T  p lb*l , 30 ; " j" 

112  PRINT  AT  pla, 1 :  " J AT  P  la*l ,  1 " 

113  LET  t Id-t  I d- 1  :  PRINT  AT  ø,51tldi"  " 
:  IF  l Id  <*0  OR  dødb>*3  THEN  GO  TO  4«3 

115  LET  p la*p lat(p la<p Ib  AND  RND<zl-tpl 
a>p Ib  AND  RN0<z) 

125  PRINT  AT  pla,  li  INK  1  ;  *'b "  J  AT  platl, 

127  GO  SUB  200 
130  IF  Pla»plb 
AND  RND<z  OR  p 


135  LET  plb=plbt(INKEY**"l"  ANO  pib  C 
-( 1NKEY*-"0"  ANO  Plb>2) 

139  PRINT  AT  plb,30i  INK  2i . iAT  plt 

30  i " J " 

140  IF  1NK£Y*-'V  THEN  GO  SUB  1100: 
return=15  THEN  GO  TO  return 

145  GO  SUB  200:  GO  TO  112 

200  PRINT  AT  vo9n,  15 i”  iAl  vognti,! 


3  THEN  LET  9  —  1 


>  TO  2  STEP  -i:  GO  SUB  200: 


3020  FOR  a-2ø  TO 
øø:  PRINT  AT  a, 0  i "tu"  ;AT  a  *  1 , 0  i  c 
SE  5:  GO  SUB  200:  PAUSE  5:  PRINT 
"  "iAT  at  1 , ø i  '  "i  OUER  li  INK  i 
♦  1,31  ; "g" :  NEXT  a 
3030  FOR 
PRINT  Al 

5:  GO  SUB  200:  PAUSE 


INK  7 iAT  Pib- 
3040  LET  reti 
4000  RESTORE 
n,pau  :  BEEP 
T  p:  NEXT  n: 


5000  DATA  . 
5.0, I  en , 5,£ 
6000  CL S 


1  STEP  - 


TO  2  STEP  -I :  GO  SUB  200: 

PRINT  AT  a, 0  i " 


n-15:  RETURN 
FOR  n-1  TO  7:  READ  I« 
n , ton  :  FOR  p=0  TO  pau : 
F  scb>hl9b  THEN  LET  b 


:  IF  scbtaCxl  THEN  NE 

C  GO  TO  6500 

)  IF  xOlø  THEN  FOR  .*10  TO  xtl  STEP 


)  INPUT  "Indtast  dit  navn  :'ia«(x):  L 

)  CL S  :  PRINT  AT  0,14  i  INUERSE  1  i "TOP 
'i  INUERSE  ØiAT  2, 5 i "Navn : " iAT  2,20!" 

FOR  k*l  TO  10:  PRINT  "  ''(  TO 

•EN  CSTR4  k  J )  ;k  i  TAB  5ia*(k);TAB  20  i  "ø 
'<  TO  4-LEN  (STR«  aCk)l)ia(k):  NEXT  k 


1000  LET  return-6 


i  " Tt  yk  p 


9000  PRINT  AT  0, 10  i 
RUKTION" 

9001  PRINT  :  PRINT 


9002  PRINT 


3  SUB  9490:  GO  T 


n  modstander  i 
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Spillet  er  et  racerbllspil,  hvor 
du  skal  styre  en  lille  bil  rundi 
på  en  bane.  Du  må  ikke  stø¬ 
de  ind  i  kanten,  og  hvis  du 


600  er  der  USR-deiinerbare 
karakterer,  hvor  du  så  indta¬ 
ster  bogstavet  i  gralikmode. 
Du  bruger  tasterne  6,  7,  8  og  9 


kører  ind  i  en  isklat,  skrider  du  til  at  flytte  bilen . 
ud.  TI 

I  linie  10,  45,  510, 530,  580  og 


10  LET  o*="  focdh  i  i  o  i  b  1 9  " 

20  LET  b«-" 32323221 2 12.1 11 
30  LET  c«="21 1332222123" 

40  LET  d*="  8  88.99  78.9?  68.76  68.8" 

45  LET  o*="oclhd9eb" 

50  P0KE  23624,?:  PAPER  0:  INK  7 
60  CLS 

70  LET  o=0:  GO  SUB  1090 
80  FOR  «=1  TO  8 

90  PRINT  AT  3, 8  J "Brug  Tottorne!' 

100  PRINT  AT  otS, 11 ;a*Co) i " — " id* 
o« C o*3tl 1 ;d*Co*3t2) 

110  NEXT  o 

120  PRINT  INK  4  i  FLASH  HAT  21,: 

130  I F  CODE  INKEY*=115  THEN  CLS 
0  150 

140  GO  TO  130 


190  LET  c  =  1 :  GO  SUB  200:  GO  SUB  840: 
SUB  800:  GO  TO  260 
200  RESTORE  1000 
220  READ  q 

225  1F  q=0  THEN  RETURN 
230  IF  q>=100  THEN  LET  c=c+l :  LET  q 
100 

240  PRINT  INK  6jAT  c,qi"0" 

250  GO  TO  220 

260  PRINT  AT  x,y;o*C13 

270  LET  c =4:  GO  SUB  280:  GO  TO  320 

280  RESTORE  1200 

290  FOR  d=l  TO  97 

300  LET  0=1  NT  (RND*261+2 

310  READ  b 

315  IF  b>løØ  THEN  LET  c=c+l:  LET  b= 


330  NEXT  d 

340  LET  !  =  1NT  CC256-1N  61438J/-2) 

350  IF  I<1  OR  012  THEN  GO  TO  430 
355  IF  O?  AND  x<9  THEN  PRINT  AT  x, 
*(13  :  LET  t=t-l/?:  PRINT  AT  l.UINT  t 
":  GO  TO  340 


360  PRINT  AT  x,yi."  " 

370  LET  y«y-2+UAL  b*C  f  3 
380  LET  x=x-2+UAL  c*CI) 

390  IF  SCREEN«  (x,yj="e"  THEN  GO  TO  5 


410  PRIMT  INK  5iAT  x,yio*(l) 

420  LET  i»|t|/4 
430  LET  t=t-lx7 

440  IF  x<9  AND  y=14  THEN  LET  s= 
ET  y=15 :  GO  SUB  800:  PRINT  AT  x,y 
450  IF  INT  t=0  THEN  PRINT  AT  1, 
e iAT  1, 1  i INT  t :  GO  TO  720 
460  PRINT  AT  1,11  i INT  s 
470  PRINT  AT  1, 1  i INT  t i"  " 

480  GO  TO  340 

500  FOR  o=l  TO  5 

510  PRINT  INK  6iAT  x,yi"c" 

520  BEEP  .1,-25 

530  PRINT  INK  2)AT  X,yi"b" 

540  BEEP  .2,-40 
550  LET  t=l-l 

555  PRINT  AT  1,1  i INT  ti"  " 

55?  IF  INT  t  =0  THEN  GO  TO  720 


600  PRINT  INK  6 ;AT  x.yi'l" 

610  BEEP  .2,-10 
620  NEXT  o 

630  LET  x=5 :  LET  y=15:  PRINT  AT  x.y 
13!  LET  c=l :  GO  SUB  200:  GO  TO  340 
640  FOR  0=1  TO  8 
650  PRINT  AT  x,y;e*Co3 
660  BEEP  .1,0 
670  NEXT  o 
675  PRINT  AT  x,yi"*" 

680  LET  u=INT  C  CRND*23-1 3+x 
690  LET  r  =  INT  C  CRND*23  +  1 3+y 
695  IF  SCREEN*  Cu,r3="e"  THEN  GO  ^ 


701  IF  t  <=0  THEN  GO  TO  720 
705  LET  x=w :  LET  y=r 
710  RETURN 


730  IF  t > o  THEN  PRINT  AT  5, < 
hl9bscooren  med  “  ;  I NT  s-tMT  o 
735  IF  s<0  THEN  PRINT  AT  5,4 


770  IF  CODE  1NKEY*=106  THEN  CLS  :  GO  T 
O  8ø 

780  IF  CODE  INKEY*=110  THEN  STOP 

790  GO  TO  770 

800  FOR  h=4  TO  8 

810  PRINT  AT  h ,  1 4 i " 1 " 

820  NEXT  h 
830  RETURN 

840  PRINT  INK  4  i  BR1GHT  1 »AT  0,øi"Tlme 
" jAT  0, 10 i"Score" JAT  0, 18 i "H I ghtcor o " i  I 
NK  7  ;AT  1,22  i  INT  o 
850  RETURN 

1000  DATA  102,3,4,5,6,7,8,9,11,12,13,14, 

15.16.17. 18. 19.20.21.22.23.24.25.26.27. 1 
01,2,5,7,9, 10,11,14,16,18,23,27, 101,27,2 

8. 101.28.29. 101 .2.29.30. 102.6.7.8.9.30. 1 
02,6,7,9, 10,  11, 12,21,22,29,30, 101,2,6, 12 

, 13, 14, 15, 16, 17, 18, 19,20,21,22,23,29,30) 
101,6,23,24,30 

1010  DATA  101, 5, 6, 23, 24, -30, 101,6,7, 14, 15 
,  16,  17,  18,23,30,  101  ,'7,8, 11,  12,  13,  14,18,1 
9,20,23,24,30, 101,8,9,10,11,20,21,22,23, 
24,25,30, 101,2,9,21,30, 102,30, 102,30,102 

,29,30, 102,3, 14,15, 16, 17, 18,21,22,23,24, 

25.26.30. 103.4.5.6.7. 15. 18. 19.20.21.26.2 

7,28,29,30,106,7,8,9,10,11,12,13,14,15,0 

1090  RESTORE  1100 

1100  OATA  24,60,60,24,24,90,126,90,208,2 
24,116,186,29,46,20,8,11,7,46,93,184,180 

,40, 16,90, 126,90,26,24,60,60,24 
1110  DATA  0,7,98,255,255,98,7,0,0,224,70 
,255,255,70,224,0,8,20,46,29, 186,116,224 
,208,16,40,116,184,93,46,7,11,32,224,104 

,116,70,89,40, 16 

1115  FOR  0=0  TO  72 

1120  READ  b 

1130  POKE  USR  "o"+o, b 

1140  NEXT  o 

1150  RETURN 

1160  DATA  1 

1200  DATA  3,5,7,9,10,11,12,17,19,20,22,2 
5, 103,4,6,8, 10, 12, 16, 18,21,23,26, 104,8, 1 
2, 17,20,23,25,26,2? 

1210  DATA  103,4,5,11,17,24,25,26,28,104, 
5,25,26,27, 104,26,3,4,26,27, 103,26,27,28 
, 102,4,26,27, 104, 103,5,27, 105,6, 14, 15, 16 


15,98,7,0,0,224,70 

46,29,186,116,224 

16,7,11,32,224,104 


1220  DATA  104,9,1 
11,13,14,15,16,17 
8,21,23,27 
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3  PR I NT "IT  : PRINT " a" : P0KE53280, 0 : P0KE53281 - ø 
3  BlS(ø>=" SOFTWARE- TERN " 

5  B1*<I)=”BV" 

3  Bl*<2>=" HRNS- JUERGEN-HRNSEN " 


="AND" 


1 0040  B 1 *  < 4  3 = "BERND-RUEHL I CKE " 
10050  B1S(53="PRESENTS" 

10060  F0RS1=ØT05 

10070  F0RS2=1T0LEN<B1S<S1>> 

10080  LES=LEFTS<B1S<S1 > ,  S2) 

10090  RES=R I GHTS  <  LES , 1 > 

10100  S3=RSC<RES3 
løllø  S4=RBS<S3J 

IFS4=45THENS5=45 • GOTO 10140 


S5=CS 


1-64 


10140  F0RS6=ØT04øøSTEP4ø 

10150  POKE 1 034+S2+S6 .  S5  •  P0KE55306+S2+S6 , 1  ■  POKE 1 034+S2+S6 , 96 
I  FS6=4øØTHENP0KE  1 034+S2+S6 ,  S5 


10170  F 


10182 

10190 

10200 

10210 

10220 

10230 

10240 

10250 

10260 

10270 

10271 

10272 

10273 

10274 

10275 


10290 


NEXTS2 

FORTY= 1 T0700 ' NEXTTY  PRINT " X 

NEXTS1 

PRINT  "X* 

PRINT  '  PRINT  :  PRINT  •  PRINT 

print"  w  w  a  ■  a  ■  sr  ^  ^  a  ■■■ 

print"  as  a  ■  a  ■" 

print"  ’a  ti  3!  a  ■  a  ■  a  ■  a  ■" 

print"  aøaa  a  ■  a  ■  a  ■  a 

print"  ^a  w  a  ■  a  s  a  ■  a  i  a  ■" 

PRINT  '  PRINT  '  PRINT  '  PRINT  :  PRINT  'PRINT  -  F0R00=ØT0700 :  NEXTOO 

F0RUT=1T020 

F0RTU=lTO15 

P0KE53281 , TU 

NEXTTU 

NEXTUT : P0KE5328 1.0-FORII =øTO 1 400 ' NEXT II 

PRINT" 3  COPYRIGHT  BY  350FTNRRES-3TERNH  1984  " 

PRINT : PRINT 

PRINT”  TRYK  F1  TIL  START  SPIL" 

GETTT$: IFTTS=""THEN10310 
1FTTS="B" THEN 10320 
I FTTSO  "  ■"  THEN  1 03 1 0 
RETURN 

PRINT" X : P0KE53280 , 6  i P0KE5328 1,6  PR I NT " S" 

PRINT" gBgWiTiTiTffifr1 IL  DU  SP ILLE  MED  8JS0YSTIK" 


•RINT"Sm 


5  GETRBS- IFRDS=""THEN15030 
5  IFRDS="J"THEN  QT=1  :  GOTO  15060 


feELLER  NED  SKSYBORD  ?" 


kAmMUHIC  PORT  2  >  "  :  FORKP*  1  TO  1 400 :  NEXTKP :  GOTO  1511 


JRE-SLH" : F0RFT=ØT021 00 ■ NEXTFT 

3  PRINT"!!": RETURN 
3  PR1NT"X' 

3  P0KE53280, 0 : P0KE53281 ,0'PRINT" 3" 

3  PRINT • PRINT 

3  I NPUT " SYRERNE BSGRRD  1-3  " i  RO 
3  RETURN 

3  PRINT" rKHBBIMT I LL VKKE  DU  FERRDIGGJORDE  BILLEDE  NR."; DE 
3  PRINT" HSTSWBSTST8T2TSTSKLRR  TIL  NERSTE  RUNDE!" 

3  FORRa 1 T04000 ; NEXT 
3  RETURN 

3  PRINT"X' : P0KE53280 , ø : P0KE5328 1,0: PRINT "3" 

3  PRINT: PRINT: PRINT: PRINT 
3  PRINT"  SPILLET  ER  SLUT !' " 

PRINT"®«  DU  FIK  ";S;"  POINTS" 

PRINT"®«  VIL  DU  PRØVE  IGEN?  >8JSC  ELLER  >SNBC" 

GETYUS: IFYU$=""THEN40060 
I F VUS= " J " THEN40090 
3  I F YUS= "N " THENG0T045000 
3  I FYUSO "  JR  "  ORYUSO  "  NEJ  "  THENG0T040050 
3  I NPUT "  HB3VRERHEDSGRRD "  i  RO 
3  RETURN 

3  PP I NT "  X'  : P0KE53280 , 1 4 : P0KE5328 1 , 6 : PR I NT " X 


3  END 


3  PRINT"?]" :  P0KE53280 , 6 :  P0KE5328 1 , 6 :  PR  I  NT  "  3" 

2  PR  I  NT "  nsaSOSWaaaatHERriED  HRR  du  slrret  higscoren  c 

4  PR I NT “ ®I NDTRSTE  DINE  INITIALER "PRR  MRX.4  BOG-" 

5  PR I NT " S5TRVER . " : F0RGH= 1 T02 1 øø : NEXTGH 

7  PRINT"?]":  P0KE53280 , 6 :  P0KE5328 1 , 6 :  PR  I  NT  "  !il" 

9  PRINT  PRINT 

3  PRINT"  / - " 

3  PRINT"  I  SHIGHSCORE"  I  " 

3  PRINT" 


3  PRINT: PRINT :HS=S 
5  F0RRR=1T03 
3  F0RUU=ØT015 
3  P0KE53280.UU 
3  NEXTUU : NEXTRR :P0KE53280,6 
3  I NPUT" NR VN : " ; NS 
3  PRINT" HS®B®S«®®« 

3  PRINT" ■-TiTitiTST^TiTil" NS "  " ; S 

3  PRINT: PRINT: PRINT 

5  PRINT" 'iliTSKKtiVJU  KON  TIL  RUNDE  "  :<BE+1> 
7  PRINT: PRINT: PRINT 

3  PRINT"  TRYK  TASTE  TIL  NYT  SPIL!" 

3  GETTVS: IFTYS=" "THEN50140 
3  RETURN 
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CPR 


Har  du  fået  et  lalsk  cpr-num- 
mer  ? 

Ved  hjælp  af  Modulus  II  me¬ 
toden  beregner  dette  Spec- 
trumprogram  om  nummeret 
er  korrekt  eller  ej. 


1  PRINT  "  CPR  TEST" ’ *  "DETT 

E  PR0GRAI1  TESTER  ON  ET  GIUETCPRNUNHER  ER 

AEGTE  EL.LER  FALSK.  "» 1  "DET  HELE  FOREGAAR 
UED  HJAELP  AF  NODULUS  11  CHECK.  HEREFTE 
R  SKAL  DU  SELU  CHECKE  ON  DET  SIDSTE  C 
I FFER  PASSER. "SAALEDES  KAN  DU  ALTSAA 
OGSAA  KONSTRUERE  ET  ’ AEGTE’  CPRNUNNER 

2  FOR  n=0  TO  8:  PRINT  :  NEXT  n 


5  LET 
#####" 

15  PRINT  "HUILKET  CPR. NR.  ØNSKES  TESTE 
T  ?" 

20  POKE  23617,236:  INPUT  "Cs=STOP3  CPR 
.NR.  ";C$ 

25  IF  C$="s "  THEN  STOP  — 

30  IF  LEN  C$010  THEN  PRINT  FLASH  lj 
"GIU  NIG  10  CIFRE  TAK  PRINT  s$:  GO  T 
O  5 

35  PRINT  :  PRINT  C*C  TO  635"-" JC$C7  TO 
3 :  GO  TO  070 

45  LET  SUN=0:  FOR  1=1  TO  3:  LET  SUN=SU 
. N+UAL  C*CI3*C5-I3:  NEXT  I 

.50  FQR  I*»4  TO  9:  LET  SUN=SUN+UAL  C$CI3 
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Garfield  II 


vie 

0  REM  GARFIELD  |  —  I  II 

1  REM  HANS  HENRIK  H  HANSEN  ■  WMm\  I  // 

2  REM  SILKEBORG  1984  ■  ZW  I  /<- 

10  PRINT'TIØ  , - ^ ^  I 

2ø  PRINT"  I  GARFIELD  I" 

30  PRINT"  ' - 

40  PRINT"M«KSWIW  COPVRIGHT  1984" 

50  PRINT"*  BV  HANS  HENRIK" 

60  PRINT"*««  ALL  RIGHTS  RESERVED"  ' 

70  PRINT" - " 

80  F0RT“1T05000 : NEXT : PRINT"«  HIT  A  KEV" 

90  GETA*:lFA$«""THEN9ø  Æ. 

100  PRINT'73****  GARFIELD  ER  LAVET"  ÆT* 

110  PRINT"*  UD  AF  46  DEFINERBARE" 

120  PRINT"*  KARAKTER"  ^99 

130  PRINT"****  POKE-VSRDIER  FRA"  Jbm  T.  t\\v 

140  PRINT"*  35-80" 

150  F0RT«1T04500; NEXT ; PRINT"***  HIT  A  KEV" 

160  GETA*.  IFA*“""THEN16ø  A*K  ^ 

170  PRINT "rJUB*  HVIS  BILLEDET  SKAL"  ft ■-  *»■ 

180  PRINT"«*  LIGNE  GARFIELD.  S  AA"  ANTOu 

190  PRINT"«*  VÆR  SIKKER  PAA"  Mk L  V 

200  PRINT"««  AT  DATA  SÆTNINGERNE"  ] 

210  PRINT"«*  ER  OK,  FØR  RUN."  ^  Ål  -,|#C-X 

220  PRINT"**  VENT  LIDT  CA  (7  SEK.V  f  9  f  Sk.  . 

230  FORT”  1T03500'  NEXT  -PRINT"«*  HIT  A  KEV"  V  J  S  \  )} 
240  GETAS ; IFAS«" "THEN240  V 

250  PR I NT "O” 

255  POKE  808,127 

260  P0KE52 , 28 • P0KE56 , 28 s F0RA=»7448T078 1 6 : POKE A , PEEK  < A+25600 ) : NEXT : P0KE36869 , i 
270  F0RA=ØT045 ■ B«A*8+7448 : F0RC-BT0B+7 : READD • POKEC, D : NEXT : NEXT 

280  DATA, ,,,,,, 1 . . . 129, ,,7,25.35,68.137,8 

290  DATA, , 224,243,255, 175, 73, 26, , , , 192,240,240,80, 160 

300  DATA, 7, ,6,9, , , ,70,44, 156, 124,64, 199,200,210 

310  DATA19, 4, 8, 16,16,208,48, 16,208,46, 17, 16,8,8,74.74 

320  DATA64, 128, 195, 196, 105,82.84, 73, , , , , 192, , , 192 

330  DATA, , ,60,67,64,64,64, 1, 1, 1,57,69, 133, 133, 132 

340  DATA212, 16, 12, , 192,224.240,224, 16, 16,8, 199, 160.144, 159,209 

350  DATA8,8. 16, 239, 68, 56, 215, 18, 122, 132, 148, 4, 76, 213, 69, 77 

360  DATA32, -,112, 136,9, 14,8, , , , , ,224, 16,8 

370  DATA185-129. 129, 64, 56,16,16,16, 68, 2, l,192,,,,14ø  M 

380  DATA192, 64, 64, 254, 30. 14, 3, -177, 159, 145, 209, 57, 7,,  192 

390  DATA18,255, 18, 18, 19,252, , , 221  -  77, 70, 124,  184,48,33,67  Æ/M 

400  DATA12, 4, 4, 24,,, 3, 128, 8, 16,240,8,8,48,192,32  JVJ 

410  DATA15,,,,,,,,  115,  ,,.,,,,,192,48.40.64.96,240,224 

420  DATA,,,,,,  120, 230,1,,,,,,,,  134, 152, 96, 64, 32, 32, 16, 16  «|K  % 

430  DATA120,4,3,,,,,,32,64,128,,,,,,1,1,1,1,3,3,3,2  MZlUf 

440  DATA192,,  128, 192, 224, 192, 128,  ,231, 79, 12,  ,1,3, 7,1  *M. 

450  DATA, ,  128, 128, 128, 128, 128, 128,8, 8, 4, 4, 4, 4, 4, 4  MlW.  '• 

460  DATA3, 3, 3, 3, 7, 3ø, 48, 63,,  128, 192. 128,,,  128, 255  Mil 

470  DATA, ,4, 2, 1,1, 34, 255, 24ø, 8, 68, 34, 18,20, 36, 255 

480  DATA4, 6, 5,  12,  1  ø,  18,52, 255.  , , ,  128,  128,  128-128,  VAL 

490  A*=  "  #SX& '  H1111K  )  *4 ,  -  »■■■■■■■I.  /Ø 1 234511*11**1*16789 : ;  C=  "  WJMl 

500  BS= " >?-4  I  — »■■■■III-  K  'OMlIFLVl  I" 

510  PRINTSPC<118),A*  Æ “  ^  Ål  * 

520  PRINTSPC<7) ,  Bt 

53ø  G0T0530  f  ** 


I  »Alt  om  Data*  har  vi  tidligere 
vist  en  flot  tegning  af  katten 
Garfield,  fremstillet  på  en  RC 
Piccolo  computer. 

I  denne  omgang  vil  vi  vise 
dig,  hvordan  du  med  en  VIC- 
20  kan  få  et  vellignende  por¬ 
træt  af  den  populære  kat  på 
din  TV-skærm. 

Programmet,  der  kører  på  en 
standard  VIC'er,  tegner  Gar¬ 
field  i  højopløsning.  Og  han 
ligner  virkelig  sig  selv. 

Hans  Henrik 
Hannibal  Hansen 


*C 11-13«  NEXT  I 

52  LET  R=1 1  +  INT  CSUIVl 13*1  l-SUd 

53  IF  R*10  THEN  LET  R=0 

54  IF  R*1 1  THEN  LET  R=1 

55  PRINT  :  PRINT  "DET  SIDSTE  CIFFER  SK 
AL  OAERE  " J  FLASH  ljR:  PRINT 

56  IF  NOT  STR$  R=C$C103  THEN  GO  TO  60 

57  IF  CR223  =  INT  CR/23  THEN  PRINT  "NUf1 
MERET  PASSER  PAA  EN  "J  FLASH  l;"K*JINDE" 

58  IF  CR/23  0INT  CR/23  THEN.  PRINT  "NU 
PINERET  PASSER  PAA  EN  "J  FLASH  1J"I1AND" 

60  PRINT  :  PRINT  sø 
65  GO  TQ  15 

75  LET  f1D=UAL  CØC3  TO  43 

80  IF  f1D<l  OR  ND>12  THEN  GO  TO  120 


85  LET  DA=UAL  pøCl  TO  23 
90  IF  CMD=1  OR  riD=3  OR  ND=5  OR  MD=7  OR 
ND=8  OR  riD=10  OR  ND=123  AND  DA>31  THEN 
GO  TO  1?0 

95  IF  t1D=2  AND  DA>29  THEN  GO  TO  120 
100  IF  Ct1D=4  OR  ND=6  OR  ND=9  OR  ND=113 
AND  DA>30  THEN  GO  TO  120 
105  LET  SK=»UAL  CøC5  TO  63^4 
110  IF  NOT  SK=INT  SK  AND  MD=2  AND  DA>=2| 
9  THEN  Q0  TO  120 
115  GO  TO  40 

120  PRINT  :  PRINT  FLASH  1 5 "DATOEN  EKSI 
STERER  IK;KE  2" 

125  PRINT  sø:  GO  TO  15 
9999  SAUE  "CPR^TEST"  LINE  0 
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Detgdmiéhus 


"Det  gamle  hus"  er  et  Adventure-(eventyr)spil,  hvor  du  er  fan¬ 
get  indeni  en  gammel  faldefærdig  rønne  med  en  lige  så  for¬ 
sømt  have.  Din  opgave  er  at  komme  ud  fra  dette  (farlige?) 
sted.  Undervejs  vil  du  støde  på  forskellige  ting.  som  kan  være 
til  hjælp  eller  til  besvær. 

Nogle  gode  råd  til  løsning  af  spillet: 

Din  bedste  hjælp  er  din  fantasi. 

Du  kan  skrive  N.  S.  0.  ell.  V.  når  du  vil  gå  mod  henholdsvis 


nord,  syd,  øst  ell.  vest. 

Hvis  du  vil  have  hjælp,  skriver  du  HJÆLP  eller  bare  H,  men 
prøv  uden.  En  del  af  det  sjove  er  jo  at  bruge  fantasien  til  at  fin¬ 
de  ud  af  de  ordrer,  man  kan  bruge. 

Du  kan  altid  gemme  spillet  på  et  hvilket  som  helst  tidspunkt. 
Du  skriver  bare  'G'  eller  'GEM' 

Æ,  0,  Å  sidder  lige  til  venstre  for  linefeed-,  BS-  og  ret-tasten 
<ret> . 


LÆG 

Bruges  til  at  lægge  en  al  de  ting  du  bær  på. 

Skriv:  LÆG  <tal>  eller  L  <  tal  >,  hvor  <tal>  er  nummeret  på 
den  ting,  du  vil  lægge. 

Eks.:  LÆG  2  (lægger  den  anden  ting  på  inventarlisten). 
Retur:  <R>  +  < ret >,  næste  ordre:  <ret> 

GEM 

Med  denne  ordre  kan  du  gemme  "stillingen"  på  bånd,  skriv 
'G'  eller  'GEM'. 

TID 

Med  denne  ordre  kan  du  få  at  vide,  hvor  længe  du  har  væ¬ 
ret  i  huset. 

Retur:  <R>>  < ret >,  næste  ordre:  <ret> 

TAG 

Denne  ordre  bruges  til  at  ta'  ting.  Du  skriver  bare:  TAG  eller  T, 
hvorved  du  tager  den  ting,  der  er  i  rummet. 


INVENTAR 

Med  denne  ordre  kan  du  se  hvad,  du  bær  på,  altså  en  inven¬ 
tarliste. 

Skriv:  INVENTAR  eller  I. 

Retur:  <R>  +  < ret >,  næste  ordre:  <ret> 

ÅBEN 

Med  denne  ordre  kan  du  åbne  den -ting  der  er  i  rummet. 
Skriv:  ÅBEN  eller  Å. 

OPSPRÆT 

Med  denne  ordre  kan  du  sprætte  noget  op  med. 

Skriv:  OPSPRÆT  eller  O. 

Retur:  <R>  +  < ret >,  næste  ordre:  <ret> 

MAD 

Med  denne  ordre  kan  du  made  nogen  eller  noget. 

Skriv:  MAD  eller  M. 


Peter  Enø  Cordsen 


SOFT  Special  19 


Hjælp-styr 

~b  *  DISPLAY  VALG  *E 
*IF  R,  r 
*IF  O.  o 
*GOTO  Hl. 

~h  *D  INSTRUK2.  *E  *B  b 
~o  *D  OVERSIGT  *E  *B  b 
~r  *  RETURN 


Hl 

*IF  GEM,  g 

*IF  TID,  g 

*IF  TAG,  t 

*IF  INVENTARLISTE,  t 

*IF  INVENTAR,  t 

*IF  LÆG,  1 

*IF  ÅBEN,  å 

*IF  OPSPRÆT,  å 

*IF  MAD,  m 

"1  *  DISPLAY  INSTRUK1 .  *E  *1  R.  b 
"g  *  DISPLAY  INSTRUK2.  *E  *1  R,  b 
"t  *  DISPLAY  INSTRUK3.  *E  *  I  R,  b 
~å  *  DISPLAY  INSTRUK4.  *E  *1  R,  b 
*m  *  DISPLAY  INSTRUK5.  *E 
~b  *GOTO  HJÆLP-STYR. 


Oversigt 

H  HJÆLP 
G  GEM 
TID 

T  TAG 
I  INVENTAR 


L  LÆG  (nr.  på  Inventar-listen) 

Å  ÅBEN 
O  OPSPRÆT 
M  MAD 

N  S  0  V  for  nord  syd  øst  vest 
NB.  afslut  altid  med  <ret> 


Hjælp! 

Hvad  vil  du  se 

-  En  ordreoversigt:  <0>  +  <ret> 

-  Den  første  ordre:  <ret> 

-  En  bestemt  ordre:  <R>  +  <ret> 
Vil  du  retur  til  spil:  <R>  +  <ret> 


Kære  læser. 

Vi  håber,  at  du  er  tilfreds  med  programmerne  i  det  første  nummer  af  SOFT 
SPECIAL 

Skulle  du  ligge  inde  med  tilsvarende  gode  -  og  måske  endnu  sjovere  og 
bedre  -  programmer,  du  selv  har  lavet,  hører  vi  gerne  fra  dig.  SOFT  er 
nemlig  læsernes  blad,  og  vi  betaler  op  til  1000  kroner  for  et  rigtig  spæn¬ 
dende  program.  Og  måske  får  netop  dit  program  en  fremtrædende  plads 
i  det  næste  SOFT  SPECIAL  eller  i  "Alt  om  Data". 

Indsend  dit  program  på  kassettebånd  eller  disc  og  gerne  vedlagt  en  ud¬ 
printning.  Samtlige  programmer  testes  og  vurderes,  inden  de  offentliggø¬ 
res.  Alt  materiale  returneres  efter  brug,  og  bladet  har  fuld  ret  til  at  publi¬ 
cere  programmet  på  tryk  og  eventuelt  andet  lagermedium. 

\  Programmer  sendes  til  "Alt  om  Data",  St.  Kongensgade  72,  1 264  Køben¬ 
havn  K. 
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Geometri 

zVk 


ø  PR;NT"nKffltir  :00SUB10000:PRINT"K8"TAB<10>F*;  "1 1  RUMFANG 11 
0  PRINT"«"TAB<10>FI; "3 1  FLADE  AREAL" 

0  PR!NT“M"TABaø>F*;"5l  OVERFLADE  AREAL" 

5  PRINT"M"TAB<10)F$; "7 1  AFSLUTTE" 

0  OETA*'  IFA*«'1  "THEN30 
55  IFAt*“ll"THEN300ø 
IFA*»"S"THEN2000 

5  IFA*“"II"THENPRINT"T  :END 

6  IFA*»''i"THEN?0 
O0T050 

70  A**= . .  "1 1  RUMFANG  AF  EN  KUGLE" 

1  PRINT"»»M»MCF*;"2I  RUMFANG  AF  EN  CVL INDER” 

2  PRINT"»»M»»»PF*;  "3  I  RUMFANG  AF  EN  PVRAMIDE" 

PRINT"ffl»UW»r,F*;"4l  RUMFANG  AF  EN  PVRAM IDESTUB" 

PRINT"»»»*MH"F*;"5I  RUMFANG  AF  EN  KEGLE" 

75  PRINT"»»»»mi"F*;"6l  RUMFANG  AF  EN  KEGLESTUB" 

PRINT"M»*8»ttl"F*;,7l  TILBAGE  TIL  HOVEDMENU" 
ø  GETA*- IFA*'""THEN80 

90  A-ASC<A*>  •  IFA<  1 330RA> 140THENA4* " " : G0T080 
1  A-A-132 i 0NAG0T0100, 200,300,20-400, 500, 700, 80 
0  INPUT'THSFADIUS  AF  KUGLE  " ,  R  ■  SV«4*lt*R1373  •  R*»STR*(R) 

0  PRINT"«  4  *  «  *";R"II*3" 

0  PRINT"RUMFANO  ■=  " , : F0RI=IT09+LEN(R*> -  PRINT"-" ,  :NEXT: PRINT"  »";SV 
30  PRINT"  3  " : G0SUB20000 

200  INPUT"HHHØJDE  AF  PVRAMIDE  ";H 
0  I NPUT "  M3RUNDL I NI E  X  ”;GX 

20  I NPUT "MDRUNDL I N I E  V  " , GV ■ SV=0X*GV*H73 : H*«STR*'H> : GX*"STR*<QX> -GV*-STR*<GV> 
30  PRINT"«  ";GX;"*";GY;"*";H 

40  PRINT"RUMFANG  =  ",  F0RI=1T03*LEN(H*)*LEN<GX*)*LEN<GV*5PRINT,,-",NEXT 
45  PRINT"  -”iSV 
50  PRINT"  3" 

ø  G0SUB20000 

0  INPUT"3BIRADIUS  AF  KEGLE  "iR 

0  INPUrjHØJDE  AF  KEGLE  " ,  H  •  SV=tl*RT2*H/3 :  Ht-STR*  <H)  i  R*=STR*<R> 

0  PRINT"«  u  *";R"II12  *";H 

30  PRINT"RUMFANG  *  "i 'F0RI"IT07+LEN<HP)+LEN<R<>: PRINT'1-"; :NEXT;PRINT"  -“i SV 
0  PRINT"  3" 

0  G0SUB20000 

ø  INPUrmURADIUS  AF  CVLINDER  ”;R 
10  INPUT")WØJDE  AF  CVLINDER  ";H:SV«ti*Rt2#H 
0  PRINT"XRUMFANG  *  tt  *";R"IIT2  *”;H;"*"-'SV 
8  G0SUB20000 

øø  INPUT"3IMHØJDE  AF  PVRAMIDESTUB  ";H 
0  INPUT"M3VERST  GRUNDLINIE  X  ";GX 
20  INPUT"«ØVERST  GRUNDLINIE  V  "iOV 
0  1NPUT"MÆDERST  GRUNDLINIE  X  ";NX 
4ø  INPUT"»€DERST  GRUNDLINIE  V  "i NV 

ø  H*«STR*<H)  :GX$*STR*<GX>  iOV*«STR*<OV>  :NX*-STR*(NX>:NV*-STR*(NV> 

0  TC»GX*GY :  NG»NY*NX :  SV=H*  <  TG*NG+SGR  ( TG4NG  > )  /3 
0  PRINT"««3VERWT  GRUNDFLADE  ■"JOX;"*";GY;"";TG 
0  PRINT"XMEDERST  I RUNDFLADE  =" ,NX; "*",NY, ; NG 
0  PRINT"«  ";H,"l*<";TG;"IK";NG;"IHva - MIHTlTG; “W'lNO; "II 


øø  PRINT"R  •FORI*1TOU+LEN<H*)+LEN(OX*>+LEN<GV*>+LEN(NV»>+LEN<NX*> 
10  PRINT"-";: NEXT: PRINT"  ="iSV 
0  PRINT"  3" 

0  G0SUB20000 

00  INPUrrUBHØJDE  AF  KEGLESTUB  ";H 
ø  INPUT"MDVERST  RADIUS  ";TR 
8  INPUT"«NEDERST  RADIUS  "i NR 

0  H*-STRt  <H> : TR*=STR*<TR> : NR*=STRt(NR) : SV*«*H*<NRt2+TRf2+<NR*TR> >73 
5  SVI="n*"+H*+"*<"+NR*+"'t2+"+TR*+"'t2+<'l+NR*+"*"+TR*V’>" 


Dette  program  til  Commodo- 
re-64,  hjælper  dig  med  geo¬ 
metrien. 

Efter  du  har  tastet  RUN  kom¬ 
mer  hovedmenuen  frem.  Her 
kan  du  vælge  imellem  rum- 

ifang,  flade  arealer  og  over¬ 
flade  arealer. 

Når  du  har  valgt  et  af  punk¬ 
terne,  dukker  en  undermenu 
op  med  de  bestemte  figurer. 
Efter  at  have  valgt  en  bestemt 
figur,  spørger  maskinen  efter 
en  række  oplysninger,  hvor¬ 
efter  den  skriver  formlen  for  fi¬ 
guren  og  svaret. 

Husk  ved  indskrivningen  at 
kommatal  skal  skrives  med 
punktummer.  Marco  Hansen 


40  PRINT"«  "?SV* 

0  PRINT"R  FOR I « 1 TO 1 6*LEN< H* > *LEN(NR* >  +LEN <  TR* ): PR I NT " NEXT 

ø  PRINT"*"; SV 


00  A**"”  :PRINT"3IBM"  ;G0SUB10000:PRINT"»MMMr'F*;  "1  !  AREAL  AF  ENREKANT" 
01  PRINT")«»»MI"F*;"3I  AREAL  AF  EN  PARALLELOGRAM" 

02  PRINT"»*»M»»rF*;  "5 1  AREAL  AF  EN  TRAPEZ" 

03  PRINT"MMW»»I"F*;'7I  AREAL  AF  EN  CIRKEL" 

005  PRINT"»M»MM"F»;  "8 1  TILBAGE  TIL  HOVEDMENU" 

ølø  G£TA*:IFR*=""THEN2010 

20  A*ASC  <  At  > • I FA< 1 330RA> 1 40THEN20 1 0 

030  A-A-132;0NAG0T02100, 2200,2300, 2400, 2010, 2010, 2010, 20 

100  INPUT".TB«HØJDE  RF  TREKANT  ";H 

110  INPUT” MDRUNDL I NI E  ",G: SV=H*G/2 ■ H*=STR$<H> : G4-STR* (G) 

2ø  print1«  ";H;"*";G 

30  PR  I  NT  "AREAL  AF  TREKANT  =  70RI*lT01+LEN<HtHLEN(0*> -PRINT"-";  :  NEXT 

140  PRINT"  »"i SV 

50  PRINT"  2" 

80  G0SUB2 0000 

200  INPUrmHHØJDE  AF  PARALLELOGRAM  ";H 

210  INPUT"M3RUNDLINIE  G  ■  SV=H*G  ■  H*=STR4(H> :  GI-STRKG) 

220  PRINT"«BREAL  AF  PARALLELOGRAM  =";H;”*";G, "»";SV 
230  G0SUB20000 

00  INPUr'ITOlHØJDE  AF  TRAPEZ  ";H 
10  INPUT"æVERST  GRUNDLINIE  ";TG 
20  INPUT"INEDERST  GRUNDLINIE  ";NG 

330  SV»H*(TG+NG)72;H**STR*(H)  •  TG*"STR*(TG)  NG*-STR*<NG> 

4ø  PRINT"«  (";T0;"+";NG;">" 

50  PRINT"AREAL  AF  TRAPEZ  :F0RI"1T07+LEN<H*>+LEN(T0*>+LEN<NG*> :PRINT"-" 

360  NEXT : PRINT"  «";SV 

370  PRINT"  2" 

380  G0SUB20000 

400  INPUT'TMURADIUS  AF  CIRKEL  ";R:SV*it#R12 
41ø  PRINT"MAREAL  AF  CIRKEL  *  <i  »"R;”llt2  *";&v 
20  G0SUB20000 

'>  3000  A*-""-PRINT"3iaW',:G0SUB10000:PRINT"MI»P»»»rFt,"l  I  OVERFLADEF  KUGLE" 
5  PRINT"»»IMMI"F*J"3I  OVERFLADE  AF  CVLINDER" 

10  PRINT"«MM»»I”F*,"5I  OVERFLADE  AF  KEGLE" 

5  PRINT"»MWMI"F*;"7I  OVERFLADE  AF  KEGLESTUB" 

0  PRINT"«tt»m»l"F*;  ”8 1  TILBAGE  TIL  HOVEDMENU" 

025  0ETA»:IFA*='"'THEN3025 

30  A-ASCCA*) • IFA<1330RA>140THEN3025 

40  A*A-132 : ONAOOT03100, 3200, 3300, 3400,3025, 3025, 3025,20 

00  INPUT".TWRPDIUS  AF  KUGLE  ",R:SV=4»<r*R12 

lø  PR I NT "  MDVERFLADE  =  4  *  n  *";R,"IIT2  *”;SV 

20  G0SUB20000 

øø  INPUT'TBDIRADIUS  AF  CVLINDER  ”;R 
10  INPUT"JHØJDE  AF  CVLINDER  "  J  H :  SV=2*ir*R*H 
2ø  PR  I  NT  "MDVERFLADE  *  2  #  n  *";R;  ”*";H;"*";SV 
230  G0SUB20000 

00  INPUrmMRADIUS  AF  KEGLE  “;R 
10  INPUT"MSIDELINIE  " , S • SV=S*tt*R 
20  PRINT" MDVERFLADE  =",S;“*  ir  *“;R;"=";SV 
330  G0SUB20000 

400  INPUT’TMMØVERST  RADIUS  ";TR 

10  INPUT"M€DERST  RADIUS  ";NR 

20  I NPUT" JS IDELINIE  ";S:SV=S*it#<TR+NR> 

30  PRINT" MDVERFLADE  =";S;"*  n  *<";TR;  "+";NR;  "ll>  =",SV 
40  G0SUB20000 

00  PRINT"  r-,  r-r-.  mr-m  i-.t 

010  PRINT"  I  tHI  I  l-M  H  I  hr' ! 

020  PRINT"  wwwj  u_xxux 

030  RETURN 

øøe  PRINT"KBTRYK  SRETURNB" : FOR I = 1 T0200 ■ NEXT 
0010  0ETP4 :  Ir  Af =CHRF<  13>THENRL'N 
20  PRINT'TJTRVK  RETURN" :  F0RI=ITC200 ;  NEXT 
0030  PRINT"TTTT' ;  GGT020000 
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11 


Geografi 


Budget 


I  dette  lille,  men  smarte  bud¬ 
getprogram  har  du  mulighed 
for  at  indtaste  forskellige  ud¬ 
gifter  og  dernæst  fd  din  Com- 
modore  64  til  at  lægge  talle¬ 
ne  sammen  og  komme  med 
et  flot  skema. □  F  Trrrn 


5  DIMB$C15) , B< 15) 

lø  PRINT"!«  I  FØRSTE  KOLONNE  SKRIVES  ART" 
2ø  PRINT"«  I  ANDEN  KOLONNE  SKRIVES  KR." 

3ø  PRINT  "HUM  TRVK  RETURN" 

4ø  GETA$  :  IFA$OCHR$(  13  >  THEN  4ø 
5ø  PRINT"!  BUDGET  • " 

6ø  PR I NT "MART" ,  ,  "KR. ", "IALT" 

7ø  PRINT" - 

Sø  FOR  T=1  TO  15 

9ø  INPUTB$<T> 

løø  PR I NT "!",,; : INPUTBCT) 

Hø  IA=IR+B<T> 

12ø  PRINT".!",,,  IA 
13ø  NEXTT 

14ø  PRINT" - 

15ø  PRINT"  IALT" , , , IA 
1 6ø  GET A$ :  I FftøO'CHR* Cl 3 > THEN  1 6ø 
17ø  PRINT"!  BUDGET  :" 

18ø  PR I NT "NR  ART",, "KR.", "IALT" 

19ø  PRINT" - 

2øø  FOR  T=1  TO  15 
21ø  PRINT  T;B$<T> 

22ø  PRINT"!", ,B<T> 

230  IS=IS+BCT> 

24ø  PRINT"!", ,, IS 
25ø  NEXTT 

26ø  PRINT" - 

27ø  PRINT"!  IALT",,, IS 

280  GETA$  :  IFA$OCHR$C  13  >  THEN  28ø 

29ø  PRINT"!«  HVILKET  NR.  ØNSKES  AENBRET" 

3øø  PRINT"«  C HVIS  IKKE  TASTES  ø>"  _ _ 

31ø  I NPUT "  «  NR . " , NR  Icom 

32ø  IFNR=øTHEN  17ø  I  doh 

330  PR I NT " «  ART " , , " KR . "  L  64 

34ø  PR  I  NT  "»"B#  C  NR),  ,BCNR>  «=. 

350  I  NPUT "  M" ,  B*  C  NR )  iaeæcaxm 

36ø  PRINT"!", ,  ,  •  INPUTBCNR)  •’  IS=ø  /Mjllliij 
37ø  GOTO  17ø  f-- - 


SOFT  Special  23 


Mastermind  hører  til  marke-  Spillet  er  opbygget,  så  com-  tarver,  -  naturligvis  alt  efter,  te  kombination  er  ikke  nød- 
dets  mest  populære  spil.  I  puteren  selv  bestemmer,  om  hvor  dygtig  du  er.  Bemærk  i  vendigvis  forskellige, 
denne  udgave  passer  det  til  der  skal  gættes  fem  eller  seks  øvrigt,  at  farverne  i  den  skjul-  L.  M.  Laursen 

Commodore  64. 


20  P0KE53280 , 11  -  P0KE5328 1 , 1 1 :  PR 1 N  I  "  :«S" 

30  PPlNT  'nUUlWlWIWia  MASTERMIND  F" 

40  PRINT"«HM«««M«REGLER  J-N?" 

50  GETA*  IFfl*=""THEN5ø 
60  I F A*= " N " THENZa6 : 00T0 1 70 

70  PRINT" NBBIMUHlIWUSIICOMPUTERfc N  UDKVLDER  4  FELTER  MED  TIL-  FHELDIGE  FHRVER. " 
80  PRINT"««--.  EKS.  «  *  ai  II" 

90  PRINT" ««<OMB  1 NHT I ONEN  SKHL  DU  SHH  GHET l'E .  “ 

løø  PRINT"««*::  VISER  DIG  HVOR  MRNOE  FHRVER  DU  HHR  PLACERET  RIGTIGT." 

110  PRINT"««*!:  VISER  DIG  HVOR  MANGE  FARVER  DER  ER  RIGTIGE.", 

120  PRINT"  MEN  SIDDER  FORKERT." 

130  PRINT "«MTKVK  PRA  4111. " 

140  GETR*; IFA*="J“ THEN160 

150  GOTO 14ø 

160  Z=5 

170  S=1 

180  D=ø 

190  L»1 

199  REM**************»*****»************ 

2øø  REM  OPRETTE  SKAERMBILLEDt 

210  PRINT" OSWiWIASTERM I NDWISMsTSfcWsVAMéTATiMsP^ " 

220  F0RX=ØT024 
230  F0RV=1T09 

24ø  POKE 1 024+20+ V+ I X*4ø) ,  16ø;R0KE55296+2ø+V+<X*4ø>  ,ø 
250  NEXTY ■ NEXTX 

260  I FZ=6THENPR INI" MWIt VAN=4'T n" 

270  PRINT"  .«««*!  V I D-2  "  ; PR I N? "  GRØD=3 "  SPRINT  "M3RØN=6  "PRINT"  UBL AA=? "  .PRINT  "i!*jUL=l: 
280  PRINT"flP=RIGTIG"  PRINT "PLACERE  i " 

290  PR  I  NT  "  *F=R  I  GT  I  G"  ■  PR  I  NT  "  F  ARVE  " 

299  REM********************************* 

300  REM  GENERERE  FARVER 
310  FORX=1T04 
320  F<X>=INT<Z*RND<l>>+9-Z 
330  IFF<X>=4THENF<X>=2 
340  IFF<X>=5THENF(.X>=3 
350  NEXT 

399  REM********************************* 

400  REM  INPUT 

410  PR  I  NT  "BØRSTE  FARVE  ?"  :  X=l  G0SUB500 


710  GETA$- IFA$”"" THEN7 1 0 
720  PRINT"D 

730  I FA*=  "N" THENPR INI " "TTl" ; G0T0408 
740  I  FA*= "  J 11  THENPR  I  NT "  TTl"  -G0T0800 
750  G0T0700 
8øø  REM  SAMMENLIGNING 


840  I- 


>THF.NP=P+1  t- 


F0RX=1T04 
910  FORV=1T04 
920  IFX=VTHEN94ø 

930  IFF(X)=0<V)IHENF=F+1:F<X)=FIX;*10-G<V;= 
940  NEXTV 
950  NEXTX 
960  F0RX=1T04 

970  IFG<X»100THENG(XI=G<XV10M 
980  IFF<X»løTHENF<X>=F<XVlø 
990  NEXT 

999  REM********************************* 
øøø  REM  POINTGI VNING 

ølø  POKE 1055+ (L*4øl , P+48 ; PUKE 1 057+ < L*4ø > , h 
.020  F0RX=lT03-P0KE55326+X+(L*4ø), 1  NEXT 
030  I FP=4THENF0RX= 1 T0800 • NEXT : GO  101 200 
.099  REM******************************** 
løø  REM  NAESTE  GÅET 


420  PRINT"-HNBEN  FARVE  ?' 

430  PRINT'TJTREDIE  FARVE  ?' 

440  PRINT’TFJERDE  FARVE  ?' 

450  G0T0700 
500  GETA*  IFA*=""THEN5øø 
510  IFA*="2"THENG(X)=2-G0T06øø 
520  IFH*="3"THENG<:X>=3:G0T06øø 
530  IFA*="6"THENG<X>=6 ■' G0T0600 
540  I F A*= " 7 " THENG (X)=7 ■ G0T0600 
550  IFA*“"8"THENG<X)=8 • G0T0600 
560  IFZ=6ANDA*="4"THENG<X>=  '  ~ 
570  G0T0500 

600  P0KE55316+<X*2)+<L*4ø>. 

610  RETURN 

700  PRINT "HER  DU  SIKKER?  J- 


X=2 : G0SUB500 
X=3 ■ G0SUB500 
X=4  ■  G0SIJB500 


NEXT :  G0T01200 


120  I F  <  L+ 1  >72=  1 3THENF0RX*  1 
130  G0T0400 
199  REM******************************** 


2øø  REM  ORIENTERING 

LaCL+l >/2 • D=D+L - R=D/S 

230  I  FL=  1 3THENPR I  NT  "  HAK ,  LUDO  ER  NOK  MERE*  DIN  STIL. "  S=1 :  D=ø :  G0T01300 
240  PRINT"M«DU  KLAREDE  DET  I  "Li"  FORSØG." 

250  IFS>  1  THENPR  I  NT  ”  ««B  1 1  GENNEMSNIT  ER  11  INT<R*løø)/løø,  »  FORSØG" 

260  S=S+1 

299  REM******************************** 

3øø  REM  NVT  SPIL? 

320  GETA*- IFA*=" "THEN1320 
330  IFA*="J"THEN14øø 
340  IFA*="N"THENlø 
350  GOTO 1320 

399  REM******************************** 

400  REM  SVAERHEDSGRAD 
410  IFZ=6THEN145ø 

420  IFL>70RZ<4THENG0T019ø 

430  PRINT"1WAS  PAA.  NU  FAHR  DU  EN  FARVE  TIL." 

Z=6 : FORX= 1 T04000 : NEXT i  GOTO 1 90 
450  IFL*13THENPRINT"M«:iK,  MEN  KUN  MED  +'EM  FARVER." 

460  IFL=13THENZ=5 
470  GOTO 190 


1= 1 T04øøø ; NEXT 


24  SOFT  Special 


lø  PR I NT " M" ■ PQKE53280 . ø • P0KE5328 1 . ø = K= 1 924 • P0KE650 . 1 28 : L= 1024 
2ø  L=L+1 • IFL=1 143THEN41 


3ø  POKEL  .•  35  ■  ■  ■  ■ 

— Den  kinesiske 

5ø  X=1 : Y=1 : DX=1 : DY=1  m _ 

I  I  wt  Du  skal  gennembryde  muren 

80  F0RT=!t01øSnÉkTT  I  I  I  LI  I  med  din  bold  og  bal  Ballet 

80  P0KE1024+X+4øiv, 32  ■  ■  ■  i  kaldes  ftem  ved  al  tevltke  od, 

100  X=X+DX  ,  ,  ,  £> 

110  PR  I  NT  "  Ci(|lPlPMf!Wf!LT;T;T;T;T;T;T;T:T;TiT;T;TiT;T;W;T;T:T;T;T;T:W;T=T;TiT;WiT;T=W  i  PØ 
120  GETfl$ 

1 30  I Ffl$= " L " THENPOKEK . 32 : POKEK+ 1.32: K=K+ 1 : PØKEK+ 1.196; POKEK . 1 96 
14ø  IFfl$="fl" THENPOKEK . 32 : POKEK+ 1.32:K=K-1 : P0KEK+ 1.196: pøKEK . 1 96 
15ø  V-Y+DV 

16ø  I  FX=  1 0RX=38THENBX=-DX : P0=P0+5 

17ø  IFV=1  THENDV=-DV :  P0=P0+5  - i - 

1 8ø  I FV=24THENDY=-BV = GOTOSøø 

19ø  1FPEEKC lø24+X+4ø*V)=35THENBX=-BX : PQ=P0+1 : GOSUBløØø 
2øø  I FPEEK  < 1 ø24+X+4ø*Y )  =  1 96THENDV=-D Y : PO=PO+lø : GOSUBløøø : GOTO 1 øø 
210  G0T060  .  ,/£>,,  ,  9 , 

3øø  PR  I  NT "  RAMTE  JORDEN  "  :  P0KE5328 1.2:  SP=SP- 1 

3 1 ø  FORG= 1 T03øøø ; NEXTG 
320. IFSP=øTHEN34ø_ 

330  GOTO  lø  ,  .  .  ,  S> 

34ø  PR  I  NT "  :'ipM«PftlPlpiPMPlPlPl!0,:T:T.Jr;T;t:.H  FflR  DU  IKKE  MERE  FOR  DEN  lø  ØRE" 

35ø  PRINT "PMDU  FIK  ";P0l "POINTS" 

999  END 


Du  skal  gennembryde  muren 
med  din  bold  og  bat.  Battet 
kaldes  frem  ved  at  trykke  på 
"a"  eller  "1",  som  også  er  sty¬ 
ring  til  højre  og  venstre. 

Janek  Majcher 


løøø  PQKE54296. 15 
lø2ø  P0KE54273.34 
lø3ø  P0KE54273. 45 
1035  P0KE54273. 51 
lø4ø  P0KE54276. ø : f 


P0KE54277. 15 : P0KE5427S. 255 : P0KE54276. 17 
P0KE54272. 75 
P0KE54272. 126 

P0KE54272. 198  . 


Skærm¬ 

koordinater 


"PRINT  AT"  funktionen:  Dette 
program  viser,  hvordan  man 
kan  skrive  på  et  vilkårligt  sted 
på  skærmen,  på  en  nem 
måde.  VIC  20  har  som  be¬ 
kendt  hverken  en  "PRINT  AT" 
funktion  eller  en  "POKE" 


\  X  X 


1  REM  PRLLE  NIELSEN  -  - 

2  REM  PRINT  RT 

10  PR I NT "IT1  : PR I NT "HVILKET  ORD  VIL  DU  SKRIVE  " : INPUTBf 

20  PR I NT "HVOR  PRR  3KRERMEN.  BRUG  KOORDINATER" : INPUTX. V : PR I NT’LT 

30  IFV>23  0RV<CØTHEN  50 

35  F0RR«1TØY : PRINT : NEXTfl 

40  IFX>220RX<øTHEN5ø 

45  PRINTTRBCX)B$ : 00T070 

5ø  PR I NT "KOORD I NATERNE  DU'R  IKKE":00T02ø 

7ø  FORN« lT03øøø:NEXT: GOTO 10 


SOFT  Special  25 


26  SOFT  Special 


SOFT  Special  27 


28  SOFT  Special 


uveler 


18, CRN0*12)+1  i "o 1 
1510  IF  o>2  THEN 
18, CRND*12)+17  j "c 


PRINT  INK  CRND+5) ;F 
LET  «=4+l 

PRINT  INK  CRND+5) if 
:  LET  0=4+1 


6  LET  h=20øø 

10  FOR  1=0  TO  50:  BEEP  .005, I  *  C 10*RND) 
:  NEXT  I 

20  FOR  J=2  TO  7 :  PRINT  AT  10,3 j:  RESTO 
RE  20:  FOR  1=0  TO  26:  READ  r:  PRINT  INK 
J iCHR*  i ) :  BEEP  .01,1:  NEXT  ( 

30  DATA  127,128,75,65,82,83,84,69,78,1 
28,75,78,79,66,76,65,85,67,72, 128,45, 128 
.49,57,56,52,46 
40  NEXT  J 

50  INPUT  "SUAERHEDSGRADCØ-20V  10 
55  IF  o>2ø  OR  o<ø  THEN  GO  TO  50 
60  CLS 
70  LET.sc=ø 


102  LET  t»500  I  »g  A  J’l 

is  ti::::  tv  vil 

500  REN 

501  REH  '<1+  =  GRAPH.  -q- 

502  REM 

503  REM  =  GRAPH. 

504  REM 

505  REH  -r-  =  GRAPH.  ~r~ 

506  REM 

507  REN  =  GRAPH.  ~t~  jM 

508  REH  (rM  AEØ 

509  REH  ~u~  =  GRAPH.  -u~  llJJL  ,  ■SjV 

510  REH  "nv.  [Hf 

512  REH 

513  REH  -0~  =  GRAPH.  '0~ 

520  REH 

600  IF  o <10  THEN  RESTORE  600:  FOR  n*0 
TO  7:  READ  r:  POKE  USR  "o"+n,r:  NEXT  n 
700  DATA  0,0,0,124,254,124,56,16 
1000  RESTORE  1000 :  FOR  J=1  TO  16:  READ  r 
:  READ  s:  READ  u::  FOR  l=r  TO  «:  PRINT 


1020  DATA  20,11,25,30,11,0,5,13,15,30,13 

,3,20,15,25,30,15,0,10 

1030  DATA  17,15,25,17,0,30,19 

1200  FOR  (  =  1  TO  29:  PRINT  AT  0, I  1  INK  6; 

:  BEEP  .005,1:  NEXT  I 
1210  PRINT  AT  1,01  INK  6l"uSC0RE:0  L 


1300  FOR  1  =  1  TO  29:  PRINT  AT  2,11  II# 

"r"  :  BEEP  .005, I  i  NEXT  I 

1310  FOR  (  =  1  TO  29:  PRINT  AT  20, I  i  II 

l“e“ :  BEEP  .005, f:  NEXT  I 

1360  PRINT  INK  6lAT  21,01’u” :  FOR  1= 

O  29:  PRINT  AT  21,17  INK  6i"  ":  BEEP 

5, C  NEXT  (:  PRINT  INK  6SAT  21, 3ø;"t 

1380  PRINT  AT  21,11  INUERSÉ  11  INK  6 

GANG:  HI:  o:" 

1399  INK  7 

1400  FOR  1=0  TO  6:  READ  r:  READ  s:  RE 
u:’-PRINT  INK  CRND+5)  1AT  r,CRND*s)+u 

:  LET  o=4+l:  BEEP  .01, l~2i  NEXT  I 
T410  DATA  4,8,6,6,8,11,8,13,1,10,8,1: 


16,CRND*8)+16i"o ":  LET  4=4+1 
1530  IF  o>4  THEN  PRINT  INK  CRND+5) 1AT 
12, CRND*13)+16 1 "o" :  LET  o=o+l 
1540  IF  o>5  THEN  PRINT  INK  CRNO+5) iAT 
8, CRND*8)+21 ;"o" :  LET  «=o+l 
1550  IF  o>6  THEN  PRINT  INK  CRND+5) 1AT 
4, CRND*8)+21 l"o" :  LET  4=4+1 
1560  IF  o>7  THEN  PRINT  INK  CRND+5) lAT 
6, CRND*3)+1 ;“o" :  LET  o=o+l 
1570  IF  o>8  THEN  PRINT  INK  CRND*3) lAT 
10, CRND*3)+ 1 1 "o " :  LET  4=4+1 
1580  IF  o>9  THEN  PRINT  INK  CRNP*3) lAT 
10, CRND*3)+26 1 "o " :  LET  o=o+l 
1590  IF  o>lø  THEN  PRINT  INK  CRND*3) lAT 
14, CRN0*3)+26l "o" :  LET  4=4+1 
1600  IF  o> 1 1  THEN  LET  t=t-Co*10) 

1610  IF  t  <300  THEN  LET  t=300 
1620  IF  o>8  THEN  RESTORE  1600:  FOR  n=ø 
TO  7:  READ  r:  POKE  USR  "o''+n,r:  NEXT  n 
1650  DATA  0,146,84,56,254,56,84,146 
1900  PRINT  INUERSE  li  INK  6  jAT  21, 15  ih 
1980  PRINT  INUERSE  li  INK  6;AT  l,'J7+li" 


2010  LET  t=t-l. 

2500  PRINT  INUERSE  li  INK  6iAT  21,8;o 
2510  PRINT  INUERSE  li  INK  6;AT  l,?i*c 
2520  PRINT  INUERSE  li  INK  6 iAT  21,26;«- 

2999  PRINT  AT  q,b  i  ’  " 

3000  LET  b=b+C INKEY$="3" )-C INKET*=" 1 " ) 

3010  IF  b <ø  THEN  LET  b=3ø 

3011  IF  b>30  THEN  LET  b=0 

3100  IF  SCREEN*  Cq+l,b)="  "  AND  1NKET*<> 
"0"  THEN  LET  4=4*1 

3200  IF  SCREEN*  Cq,b)<>"  "  THEN  BEEP  .0 
I , q+b+ 10 :  LET  d=d+|:  LET  sc=«c+25 
3300  IF  t=0  THEN  :  LET  1=1-1::  FOR  |=69 
TO  -60  STEP  -1 :  BEEP  .01,1:  NEXT  I:  IF  I 
>0  THEN  :  CLS  :  GO  TO  100 
3310:  IF  1=0  THEN  CLS  :  GO  TO  7000 
3400  IF  d=o  THEN  LET  o=o*l :  LET  sc=sc+l 
øø:  CLS  :  GO  TO  løø 

3990  IF  SCREEN*  Cq-l,b)="  "  AND  1NKEY*=" 
0"  THEN  LET  4=4-1 
4000  PRINT  AT  4,bi"i" 

6000  GO  TO  2000 

7000  LET  o*="SLUT  OPGØR" 

7010  LET  b*=“ _ " 

2050  IF  sc>h  THEN  LET  h=sc 

7100  FOR  1=10  TO  20:  PRINT  INK  11-10)22 

iAT  10, løio*i  OUER  1 iAT  lø.løib*:  BEEP  . 

005, I :  NEXT  I 

7150  PRINT  AT  15,0 

7200  PRINT  "SCORE  =",sc 

7210  PRINT  "TID  =",t 

7220  PRINT  "OHGANG=" , o 

7230  PRINT  "  o  =" , 4-d 

7300  PRINT  4 1  i "  UIL  DU  PRØUE  IGEN  ?  CJ 

2N2H)  " 

7400  IF  INKEY*=”n"  THEN  GO  TO  7450 

7401  IF  INKEY*="J"  THEN  GO  TO  7500 

7402  IF  INKEY*="m"  THEN  GO  TO  7600 
7410  BEEP  . 01 , RND*60 

7420  GO  TO  7400 

7450  CLS  :  PRINT  INUERSE  1 iAT  11,05"  D 
U  UILLE  GERNE  SLUTTE  SPILLET.  ":  BEEP  .5 
, 10:  STOP 

7500  CLS  :  PRINT  INUERSE  1 iAT  11,0 i" 

DU  UILLE  GERNE  SPILLE  IGEN.  ”:  BEEP  .5 
,30:  CLS  :  GO  TO  10 

7600  CLS  :  PRINT  INUERSE  1 iAT  11,0;" 


Forbryderen  "No  Good"  har  i 
løbet  at  sit  lange  liv  røvet  op 
til  tiere  juveler,  som  han  har 
gemt  i  flere  etagers  grotte. 
Detektiven  (dig)  har  tundet 
grotten,  og  ved  hjælp  at  en 
en-mands-jet  torsøger  du  at  tå 
tat  i  juvelerne  tør  tiden  løber 
ud.D 

Karsten  Knoblauch 


DU  UILLE  HAASKE  SPILLE  IGEN  " 

7610  PRINT  INUERSE  1 iAT  12,0!"  SAA  JEG 
TRAF  UALGET  FOR  DIG... 

7620  IF  CRN0&10) <5  THEN  LET  d*="IKKE  ": 
GO  TO  7622 

7621  LET  d*=" " 

7660  PRINT  INUERSE  1 iAT  15, Øi”  DU  UILL 

E  "  id* ; "SPILLE  IGEN _ " 

7700  IF  d«=" IkKE  "  THEN  BEEP  .5,10:  STO 

7710  IF  d*=" "  THEN  BEEP  2.5,30:  CLS  i  G 

O  TO  10 

8000  STOP 

8888  RESTORE  9000 


9000  FOR  n=0  TO  7:  READ  r:  BEEP  .01,n:  P 
OKE  USR  " 4 " +n , r  :  NEXT  n 
9010  DATA  0,126,254,255,255,239,247,102 
9020  FOR  n=ø  TO  7:  READ  r:  BEEP  . ø],n:  P 
OKE  USR  "e"+n,r:  NEXT  r>  • 

9030  DATA  0,0,0,0,16,116,254,255 

9040  FOR  n=0  TO  7:  READ  r:  BEEP  .01, n:  P 

OKE  ClSR  " r  ”  +n ,  r  :  NEXT  n 

9050  DATA  255,254,116,16,0,0,0,0 

9060  FOR  n=ø  TO  7:  READ  r:  BEEP  .01,n:  P 

OKE  USR  “  t "  +r> ,  r  :  NEXT  n 

9070  DATA  192, 234 , 224, 240, 192,224, 192, 12 


■0  TO  7:  READ  r  :  BEEP  .01,n  :  P 
’+n,r  :  NEXT  n 
>4,60,24,60,90,24,36,  102 
■0  TO  7:  READ  r:  BEEP  .øl,n:  P 
1 +n , r :  NEXT  n 
),ø,ø,  124,254,  124,56,  16 
:ø  TO  77:  PRINT  INK  CRND*6)+1 
"i:  BEEP  . øl , RND#60 :  NEXT  1 
PRINT  FLASH  1 iAT  Ø.lØi'INSTR 


9410  PRINT  AT  2, 0 ;  FORBRYDEREN  -NOGOOD- 
HAR  I  LØBETAF  SIT  LANGE  LIU  RØUET  OP  TIL 
FLERE  JUUELER  SOH  HAN  HAR  GEHT  I  EN 
FLER-ETAGES  GROTTE." 

9420  PRINT  AT  7, ø i "DETEKTIUEN  Cdig)  HAR 
FUNDET  GROTTEN  ,0G  UEO  HJAELP  AF  EN 
EN-HANDS-JET  FORSØGER  HAN  AT  FAAFAT  I 

JUUE LERNE  FØR  TIDEN  LØBER  UD . " 

9430  PRINT  INUERSE  1  iAT  12,0;"  NAAR 
HAN  KOHHER  TIL  CA.  OHGANG  NR. 9 

,  KAN  DER  FOREKOHHE  -SORTE* 

IUUELER 

C  DE  KAN  IKKE  iES.  ) 

9450  PRINT  '•  DU  STYRER  HED:” 

9460  PRINT  :  PRINT  INUERSE  li"  1=U£NSTR 
E  3=HØJRE  ø=OP  " 

9490  LET  «=RN0*3ø 

9500  PRINT  INK  C«75)+l i  INUERSE  HAT  21 

.øi"  TAST  ~P~  FOR  AT  SPILLE  JUUELER  “ 

9551  LET  «=«+lø 

9560  BEEP  .01,«:  BEEP  .005,4 

9600  IF  1NKEY*<>"p"  THEN  GO  TO  9490 

9700  RUN 

9999  SAUE  "JUUELER"  LINE  8888 


Q-Bert 


Vor  ven  Q-BERT  skal  styres 
rundt  på  de  49  trin.  som  Che- 
ops  pyramide  består  af.  Hver 
gang  han  har  været  på  en 
firkant,  bliver  feltet  farvet.  For 
at  undgå  Mumiens  forban¬ 
delse.  skal  du  få  farvet  alle 
felter.  Et  superspil  titCommo- 
dore  64!!! 

Jesper  Hansen 


ns  ww\  ns  w 
ns  ww\  ns 
ns  w  n  an 
ns 

ns  99/  ns 
i  ns 


ns  9.9  i  " 

■  n  99/" 

9.9/" 

W  BV  .JESPER  HANSEN  1984" 


lø  PR  I  NT  "  3"  :  P0KE5328 1 ,  ø :  P0KE53280 , 2  delse.  skal  du  få  farv, 

20  PRINT :  PRINT"  S  ST  W\  "  felter.  Et  superspil  tit  Cc 

30  print"  rr  n  ar  bh  ••  dore  64!!! 

40  PRINT"  STTi I  WW\  " _  Jesper H 

5ø  print"  sra  bs/  as  ww\  ~ 
sø  print"  ara  as/  aa  rwi  •• 

70  FORI=ØT01 : PRINT"  as  BS  I  aa  IJ  ";NEXTI 

8ø  print"  as  ss  i  as  as  i  a  mm.  mm  mm  m  n  mm." 

pø  pr  i nt  "ri  as  bs  i  as  bs  i  a  *  »  s?  »  m  a  *  *" 

iøø  pRiNTMn  as  bs  i  as  bs  i  a  »«**  mm.  mm  a*  »  »  *" 

liø  PRINT".!  as  bs  i  as  ssiai*  mm  m  mm  *  #" 

laø  pr  i  nt  "n  as  bs  i  as  bs  i  a  i  »  i  ■  «  ■  a*  •  »"  /> 

130  print"'i  as  bs  i  as  bs  i  a  mm  *■  *  *  *  m  mm"  /fjr - 

140  PRINT"'!  as  BS  I  as  BS  I  " 

150  PRINT"  as  BS  I  STBiaa  BS1  " 

160  print"  as  arw\  as  w  a  bs/"  (Nja 

i?ø  print"  as  ww\  as  as/"  VJ?  . 

180  PRINT"  as  =r  a  ww  *o  bv  jesper  hrnsen  1984" 
i9ø  print"  as  rn  -  V 

200  PRINT"  as  BS/  as  ST  BTl  " 

210  PRINT"!!  as  BS/" 

220  G0SUB1130 

230  S I »54272 : FOR I =>5T0 1 9STEP7 : POKES I  + 1 , 1 5 : POKES I  +  I  +  l  .■ 255 : NEXT I : POKES I +24  , 1 5 
240  P0KE53280J  2 :  PR  I  NT"  3"  :  F0RI  =  1T08  :  PRINT  :  NEXT 
250  PRINT"  9iV  IL  DU  SPILLE  MED":  PRINT 

260  PR  I  NT "  ’=nj  813  YST I CK  C  PORT  1)  ELLER  ITT  TASTATUR"  :  PRINT 

230  I FPEEK  <  203 )  »22THENP0KE 19840=  G0T0320  (<^ 

290  I  FPEEK  <  203 ')  »340RPEEK  f.  203  >  =6øTHENB$=  "  J  "  :  G0T0380 

3øø  D=D+1 : IFD>500THEND=0 : GOTGlø  1  JSfr 

310  G0T0280 

320  PRINT "71"  (C 

330  PRINT:  PR  I  NT  "HVILKEN  TASTER  SKAL  V  AERE  :  "  :  PRINT  N. 

340  I  NPUT  " -VENSTRE  " J L0$ =  PR  I  NT 

350  INPUT"-OP";ROf  =  PRINT  t  ' 

360  inputm-ned";lu«:  print  \ 

370  I  NPUT "  -HØJRE "  '>  RUf  ^  ^ 

380  PR  I  NT"  3"  :  L=0 :  FA=3  :  P=0 :  RU=48 

380  B=  1 1 60  :  F=55432  :  F0RA=0T06 :  GOTO  1030  I  *!£  Æ 

4øø  FORA l=øT06:H=A*79+A 1*42 

4 1  ø  FOR  I  =ØT02 :  POKEF+H+ 1  .•  1  :  NEXT I :  POKEB+H ,  233 :  POKEB+H+ 1 , 224  :  POKEB+H+2 ..  1 05 
420  FOR  I  =ØTO  1  :  POKEB+H+ 1  +4ø ,  224  :  POKEF +H+ 1  +40 , 2  :  NEXT I  :  NEXTA 1 :  NEXTA 

430  FOR  I  =4T0 1 8STEP7 :  POKES  I  + 1  .•  0  :  NEXT I :  RESTORE 
44ø  PRINT"  SCORE:  "•P.-  "HI  SCORE :  "  j  RE 

450  B=  1 1 63 :  F=55435 :  F0RA=ØT06  :  P0KEF+A*42 , 1 :  P0KEB+A*42  .■  101 :  NEXT A  \ 

460  6=1454  :  F =55726  '■  F0RA=ØT06 :  P0KEF+A*79..  1  :  P0KEB+A*79/  78  :  NEXTA 

470  B=1494  :  F=55766  :  F0RA=ØT05 :  PQKEF+A*79.-  1  :  P0KEB+A*79..  101  :  NEXTA 

480  A= I NT  C RND <  T I >  *7 ) : A 1  =  I NT  C  RND  <T I ) *7  > : S*1 1 6 1 +A*79+A 1*42: Q=A : Q 1 =A 1 

49ø  POKES  j  222  :  POKES-40  >  1 7ø :  I  FA=øTHENP0KES-4ø  .■  1  ø  1 

500  SF=S- 1024+55296 

5 1 ø  FOR I =SF- 1 TOSF+ 1 : POKE I , FA : NEXT I 

520  P0KE532804  FA 

530  L=L+1 : IFL>løTHENL=lø 

54ø  F0RI=1T0L 

55  A  LØ  H  >  =  I  NT  (  RND  <  T I )  *7  >  :  L 1  <1 >  =  I  NT  <  RND  <  T I  >  *7  )  :  L  Cl  > =  1 1 6 1  +L.Ø  C I  >  *79+L  1 <1 >  *42 

560  I  FPEEK  C  L(I  )  X>224THEN55ø 

57ø  POKELC I  >  .•  209 :  Pøa  >=LØ(  I  >  :  PI  <  I  >=L1  <  I )  =  NEXT  I 

580  I FJ3S  =  "  J  "  THEN  1 050 

58ø  GETA$: IFAf=" "THEN640 

600  I F A$=LOf THENA 1=81-1= G0T0800 

610  IFH$=RU$THENA1=A1+1 : G0T0800 


a>*79+LlCI?*42 
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HCT 


620  I Ffl$=RO$THENR=H- 1 = G0T0800 
630  IFfl$=LUfTHENfl=A+l : G0T0800 
64ø  1  =  1  +  1  :  IFI>L.THENI  =  1 
650  I FPø  C I >  =ØTHEHZ=3 : G0T0700 
660  I FPø  Cl > =6THENZ=2 : G0T0700 
67ø  I FP 1  Cl ) =ØTHENZ= 1 : G0T0700 
680  I FP 1  C I >  =6THENZ=ø : G0T0700 
630  Z=INTCRNDCTI>*4> 

7øø  I FZ=3THENLØ C I >=LØC I >  +  l : G0T0740 
710  I FZ-2THENLØ C I )=LØC I >-l : G0T0740 
720  I FZ= 1 THENL 1  C  I >  =L 1  C  I >  + 1  = G0T0740 
730  L1CI>=L1CI>-1 
74ø  POKES I  .•  207 :  POKES  1  +  1,34:  POKES I  *6 , 80  :  POKES I  +5 ,  ø  :  POKES  1+4,17 
750  LC  I  >=LøC  I  >*79+Ll  C  I  >*42+1161  :  IFPEEKCLC  I  >  >=2ø9THEN65ø 
7Fø  PC  I >=PøC I >*79+Pl C  I >*42+1161 : POKEPC I > , 224 : Pø  C  I >=LøC I > : PI  C  I  >=L1  C  I > 


77ø  POKES I +4,ø 

780  I FPEEK C  L  C  I >  >  =222THENP0KEL  C  I > , 203 : POKEL C I > -40 , 224 : G0T0320 
73ø  POKEL  C  I > , 203 : G0T0580 

8øø  POKES 1+7,103: POKES 1+8,17: POKES 1+13, 24ø : POKES I + 1 2 , 0 : POKES 1+11,33 
810  3=fi*79+Q  1  *42+ 1161 :  POKES,  224  :  POKES-40,  224  :  IFQ=ØTHENP0KES-4ø,  løl 
820  Q=R:Ql=fll  :S=R*73+R  1*42+1  161  :  IFPEEKCSK>224THENP0KESI  +  1 1 , 0  =  G0T0930 
-  83ø  POKES, 222: POKES-40, 17ø : IFR=øTHENP0KES-4ø, løl 
-I  84ø  POKES  I  + 1 1 ,  ø  :  SF=S- 1 024+55296 : 1 F  C  PEEK.  C  SF  >  AND  1 5  >  =  1 THEN860 
850  G0T0640 

;  860  FORW=SF- 1 TOSF  + 1 : POKEW, FR : NEKTW : P=P+1 : I FP>RETHEHRE=P 
\  87ø  PR  I  HT  "  m"  ,  P ,  ,  RE  :  I  FP=RUTHEN89ø 
i  880  G0T0640 

890  FR-FR+1 : IFFR>15THENFR=3 

'  900  P0KE53280, FR : RU=RU+48+lø*L : fl$=" " : P=P+lø*L : IFP>RETHENRE=P 
91ø  PR I NT "n" :G0T039ø 
'  920  I Ffl=øTHENP0KES-4ø , løl 
'  930  FOR I =ØT08 : PR I NT : NEKT I 
\  94ø  FOR I = 1 8øT0 1 30STEP- 1 

i  95ø  POKES 1+24,15: POKES 1 , 207 : POKES I  + 1 , 1 : POKES 1+6,1 43 
960  POKES I +5 , 15:: POKES 1+4,17: NEKT I : POKES I+4,ø 
970  POKES I , 90 : POKES 1+1,4: POKES I +6 , 255 : POKES I +5 , 1 5 
980  POKES I , 5ø : POKES 1+1,17= POKES I +6 , 32 : POKES I +5 , 0 : POKES 1+4,17 
990  FORT= 1 TO 1 80 : NEKTT : POKES 1+4,0 

løøø  PRINT"««««  ORNE  -  O  V  E  R  »»>»»" 
lølø  PRINT :  PRINT"!!  TRYK  F1  FOR  ET  NYT  SPIL  !" 

1 020  POKE 198,ø: ur I T 1 98 , 1 : G0T0240 
I  lø3ø  RERDK : RERDKL : RERDKH 

1  ø4ø  POKES  I +K. ,  KL  :  POKES  I +K+ 1 ,  KH  :  POKES  I +K+4 ,17  =  G0T0400 
1  1 ø5ø  R= C  255-PEEK  C  5632 1 >  >  AND 1 5 


1060  IFR=øTHEN64ø 
1 ø7ø  I FR=4THENfl 1 =R 1 - 1 : G0T0800 
1 ø8ø  I FR=8THENR 1 =fl 1 + 1 : G0T0800 
1 090  I FR= 1 THENR=fl~ 1 : G0T0800 
liøø  I FR=2THENR=A+ 1 : G0T0800 


,  '1110  G0T0640 

1120  DRTRø, 180,3,7,24 7, 10,7, lø, 13,7, 103, 17, 14,237,21, 14,20,26, 14,207,34 
V  1 1 30  P0KE56 , 48 : FOR I = 1 T02 1 : RERDR : NEKT 
\  1140  FOR I =828T087ø : RERDQ : POKE I , Q : NEKT 

•s  1 1 5ø  DRTfll 20 ,  1 69 ,49,1 33 , 1 ,  1 69 ,  ø ,  1 33 ,  93 , 133,1  øø ,  1 69 ,  208 , 1 33 ,  99 ,  1 69 , 48 ,  1 33 ,  løl 

\  1 160  DATA 162,16,1 60 , ø ,177, 98 , 1 45 , 1 Øø , 200 , 208 , 249 , 230 , 99 , 230 ,101 , 202 , 208 . 242 

^  1170  DHTR169, 55, 133, 1,88,96 


1 1 Sø  SYS828 : P0KE53272 , C  PEEK  C  53272  >  RND240 >  OR 1 2 

1 1 90  RERDR : I FRCØTHENREST ORE : RETURN 

1 2øø  FOR J=øT07 : RERDB : POKE 1 2283+R*8+ J , E : NEKT : GOTO 1 1 9ø 

1210  DRTR 1 6ø , 255 ,255 , 255 , 255 , 255 , 255 , 255 , 255 

1220  DRTR 1 7ø , 255 , 255 ,231,195,1 95 , 1 29 , 0 , 0 

1 23ø  DRTR222 ,129,195,219,189,219,24 , 255 , 255 

1 24ø  DRTR209 , 1 95 , 1 29 , 36 , ø , ø , 60 , 153,1 95 , - 1 
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Super-Bam 


Med  dette  program  har  du  nu 
chancen  tor  endelig  at  Id  or¬ 
den  pd  dine  disketter.  Du  kan 
ændre  dit  bamhoved,  dit  id. 
nr.,  samt  ændre  formatet  pd 
disketten. 

Endvidere  kan  du  ændre  din 
dos  (disk  operating  system), 
sd  du  writeprotecter  din  disk 
uden  at  pdklæbe  mærkat. 
Programmet  er  i  øvrigt  selvin¬ 
struerende  og  fortæller  alt, 
hvad  du  vil  vide  i  rem  linjer. 

Jan  Tott 
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Stroboskop 


Et  festligt  program  til  Commo- 
dore  64,  der  sørger  tor  lækre 
eftekter  under  lester  og  lig¬ 
nende.  Foruden  stroboskop¬ 
lyset  er  der  6  andre  lysellek- 
ter,  som  alle  kan  køre  ud  Ira 
hovedmenuen. 

Kurt  Bennetsen  og 
Klaus  Kortbæk 


ø  PR I NT" 3" : CLR 

1  P0KE53231 ,  ø : P0KE53280, ø : GOSUB  8ø 

2  GETRJ : IF  RS=""  THEN  2 

3  I Ffl *= " ■" THEN2 1 

4  I FR$= " THEN40 

3  IFR*="II"  THEN  50 

6  IFR*="»"  THEN  60 

7  IFR$="JT  THEN  100 

8  IFR$="«"THEN229 

9  IFfl*="T"  THEN  PRINT 11 3"  :PRINT"ITI — "  :G0T0 
lø  GOTO  2 

11  PRINT  CHR*<147> 

12  PRINT"9iER  DU  SIKKER< JKN)?" 

13  GET  SR$'IF  SR*=" "  THEN  13 

14  IF  SR*="J"  THEN  PR I NT" 3" : END 

15  IF  SR$="N"  THEN  RUN 

16  GOTOø 

21  PRINT"!!  !il/ - S" 

22  PRINT"  mi  li  SOUND.  li  I" 

23  PRINT"  m' - 

24  PRINT" JUHBil" 


5  PRINT" W  ''S  » 

;  print" a  ■  a 
7  print" a  »  a 

s  pr i nt "^a  is  a 
?  print"  a  ■  a 

3  print"  a  s  a 

L  PRINT" W  W  ^3  W  "43  ! 

i  GETBf : IF  BJ=""  THEN  32 
3  IF  B*="  "  THEN  RUN 
*  RUN 

3  PR I NT "d" :REM  *#  STROBE  LVS  *# 
l  POKE  53281  ,  ø :  POK.E  53280,0 
l  FOR  R=1  TO  73 : NEXT 
3  POKE  53281,1 

»  GETfll# : IF  Hl*="  "  THEN  RUN 
5  GOTO  41 

3  REM  **  FRRVESTROBE  ** 

1  PRINT"!!":  POKE  5328 1,0: POKE  53280. 

2  FOR  Rl=ø  TO  13 

3  POKE  33281, RI  _ 

(  F0RB=1T030:NEXTB  —  - - - 

5  POKE  53280, RI 
3  F0RB“lT03ø:NEXTB 
'  GET  R2$ : IF  R2*="  "  THEN  RUN 
3  NEXT  RI 
»  GOTO  51 

3  REM  **  COBRLLS  *# 

.  PRINT"!!"  :  POKE  33281 
!  RB=INTCRND(n*4)  +  l 
I  IF  RB=1  THEN  V=V+4ø ' Vl=Vl-4ø : F=2 
I  IF  RB=2  THEN  V=V-4ø : Vl=Vl+4ø : F=5 
S  IF  RB=3  THEN  V=V+1 : V1=V1-1 : F=6 
i  IF  RB=4  THEN  V=V-1 : V1=V1+1 : F=7 
’  IF  VC1024  THEN  V=V+4ø 
i  IF  V>2023  THEN  V=V-4ø 


POKE  53280, 0-V=1514:V1=1334 
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69  IF  VK1024  THEN  Vl=Vl+4ø 
7ø  IF  VI >2023  THEN  Vl=Vl-4ø 

71  GET  RB$ :  IF  RB$="  "  THEN  RUN 

72  POKE  Vj  81 :  POKE  VI -81  'F'OKE  V+54272-  F :  POKE  V 1  +54272 -F 

73  GOTO  62 

74  RUN 

8ø  REN  **  INSTRUKTIONS  ** 

81  PRINT "MS  IB  O  U  N  D  -  VALGMULIGHEDER. " 

82  PRINT"  r 1 -  “  " 

83  PRINT"  (UDVERS  I  GT" 

84  PRINT")®!  SF19  SOUN  D"  :  PR  I  NT  "B  :F29  LØBELVS" 

85  PR I NT "S  EF 39  STROBE-LVS" : PRINT"B  SF49  SOUND  RUN" 

86  PR I NT "M  EF59  FARVE-STRQBE" 

87  PRINT "M  SF69  COBRLLS" 

,  88  PR I NT "S  319  STOP" 

89  PRINT" H!IT ILBAGE  NED  'SPACE'" 

91  RETURN 

løø  PR I NT "n" : POKE  53281.0: POKE  53280-0 
løl  GOSUB  199 
lø2  T=INT <RND( 1 )*7)+l 
103  IFT=1  THEN  A=5 ; B=159 : C=28 : D=156 


BE 1 56 :  C==3ø ;  D=3 1 
5=3 1  :  C=159 :  D=5 
B=3ø : C=28 : D= 1 56 


104  IFT=2  THEN  fl=28:l 

105  IFT=3  THEN  R=3ø:I 

106  IFT=4  THEN  0=31^1 

107  IFT=5  THEN  R=156 : B=28 :C=31 : D=3ø 

108  IFT=7  THEN  R=159 : B=3ø : C=156 : D=31 

llø  PRINTCHR$ICA> : PRINT"*  SE  O  U  ( 

111  GET  R6$ : IF  R6f ="  "  THEN  RUN 

112  GOTO  løl 

199  PRINTCHRSCFO _ 

200  PRINT" srøromromrom  ••••  " 

201  PRINT"  ••••••" 

202  PRINT" 

203  PRINT" 

204  PRINT"  •••• 

205  PRINTCHR*(B) 

206  PR  I  HT  "  HWBIRrøfMHWISIiTjTiWiTiTiTsTiTiTil  #•••" 

207  PRINT'"iriTjTiTiTiTiT=W:Tj»«*««i" 

208  PRINT"^KTSWiTiT!TiTSBTS»M*M" 

209  PRINT'"iT;TiT5TiTiTiTiTiTiTi»»#«i*" 

210  PRINT " 'iWiTiTSTiTiTiTiTitil  ••••  " 

211  PRINT  CHRfCC) 

212  PRINT"! 


213  PRINT" VTSTSTSTsTsTéTåTSTSWsTiTSflljTsTéTi 


PRINT  "  'iTitATÆTAWAlATAWATitA1 
PRINT"  ' 

PRINT"  MM  " 

PRINT  CHR*<D> 

PP I  NT  "  •••• 

PRINT" 

PRINT”  iT*,.TiTiTiVi*;W;T;r;TiV.',;T.W^.-*;T.V.-TAT^ 

PRINT 

PRINT"  'AWATiTiVjTATi « 

RETURN 
PRINT  "  ID" 

F=IMT(RND<1>*8)+1 
IFF=1  THEN  A=3ø 
IFF=2  THEN  R=31 
IFF=3  THEN  R=28 
IFF=4  THEN  R=159 
IFF=5  THEN  A=158 
IFF=6  THEN  R=5 
IFF=7  THEN  R=3ø 
IFF=8  THEN  R=31 
PRINTCHRSCA) 

pr  i  nt  "  roms  \  i  i 

PRINT"  \  I  I  I  I  I  I 

PRINT" " 

PRINT"  ****  ****  *  *  *  *  *** 

PRINT"  *  s********* 

PRINT"  *  ********* 

print"  ****  *  *  *  *****  * 

PRINT"  **  **  *****  * 

PRINT"  **  **  **  **  * 

PRINT"  ****  ****  ****  *  *  *** 

PRINT" " 

PRINT"  /  I  I  I  I  I  I 

GETL$ : IFL*="  "  THEN  RUNØ 
PRINT"  /III 
PRINT"" 

PRINT" " 

PRINT" " 

PRINT"" 

PRINT"" 

PRINT"" 

F0RB=1T095  : NEXT 

GOT0233 
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)  REM  RUNDT  Pii  GULVET  for  2  spillere. 

)  ON  ERROR  RUN 
>  GOTO  370 

)  IFP0INT(X1X,  Y1X)  O0G0T01130 
)  IFP0INT(X2X,  Y2X)  O0G0T01280 
)  GCOLO, 3:M0VEX1X,  GY1X: DRAMX 1%, Y1X!GY1X=Y1X 
)  GCOLO,  6IM0VEX2X,  GY2X:DRAMX2%,  Y2X:GY2X=Y2X 
i  I FMX= 1 GOT  0180  \ 

»  IFADVAL(l)DrVDX<lBX=l  \ 

3  IFADVAL ( 1 ) DIVDX) 1BX=2  \ 

i  IFADVAL (2) DIVDX  < 1BX=3  \ 

1  I FAD VAL ( 2 )  D I VDX) 1 BX=4  \ 

)  IFADVAL (3) DIVDX <1AX=1 
5  IFADVAL  (3)  DIVDX)  1  AX=2 
)  IFADVAL ( 4 ) D 1 VDX  < 1 AX— 3  T 

i  IFADVAL (4) DI VDX)  1AX=4  .g 

i  G0T0260  V  }  Jl 

3  IFINKEY (-104)BX=1  \  X  _ - — — 

)  IFINKEY (-103)  BX=2  \  ■■  '***'  . 

3  IFINKEY (-105) BX=3  \  \ 

3  IFINKEY (-73) BX=4  \  \ 

3  IFINKEY (-83) AX-1  \  \ 

3  I F I NKEY  ( -67 )  AX=2  \  — 

3  IFINKEY (-98 >AX=3 
3  IFINKEY (-66) AX=4 

3  S0UND1 , -9, S1X, 1:S1X=S1X+1!S0UND2, -9, S2X, liS2X=S2X+l 
3  0NAXG0T0280, 290,  300,  310 
3  X1X=X1X+8iG0T0320 
3  X 1 X=  X 1 X-8 !  GOT0320 
3  Y 1 X“ Y 1 X-8 i  G0T0320  i 

3  YlX=YlX+8  \ 

3  0NBXG0T0330,  340,  350,  360  \ 

3  X2X=X2X+8 ! G0T040  \ 

3  X2X=X2X-8iG0T040  \ 

3  Y2X=Y2X— 8  *  GOT040  \ 

3  Y2X=Y2X+8  s  G0T040  \ 

3  MODE  liVDU  23, 1, 0;0;0;0;  - V — 

3  VDU  23,66,  126,51,51,62,51,51,  126,0  \ 

3  VDU  23,68,  126,51,51,51,51,51,  126,0  \ 

3  VDU  23,86,99,99,99,54,54,28,28,0 


60,  108,  127,  108,  108,  1 1 1 ,  O  \ 
103,111,  123,  115,99,62,0  \ 

0,62,99,127,99,99,0  \ 

0,0,-1,1,1,255,0,0,0,0,0,0  ' 

O,  O,  O,  O,  O, O,  126,-2, -1,-1,  126,  100 


440  ENVELOPE  2,  O,  O,  0,-1,  1,  1,255,0,0,0,0,0,  O  \ 

450  ENVELOPE  3,  3,  O,  O,  O,  O,  O,  O,  126,  -2, -1, -1 ,  126,  100  \ 
460  VDU  19,3,6,0,0,0  V 

470  CLSlGCOL  0,2 
480  DRAM  1279, OlDRAM  1279,1023 

490  DRAM  O,  1023SDRAM  0,0  ^  ^ 

500  MOVE  4, OiDRAM  4,1023  " 

510  MOVE  1275, 0IDRAM1275,  1023 

520  MOVE  12, 8 1  DRAM  1266, 8tDRAM  1266,1012 

530  DRAM  12, 1012SDRAM  12,8 

540  MOVE  16, SiDRAM  16,1012 

550  MOVE  1262, 8  s  DRAM  1262,1012 

560  COLOUR  1 

570  PRINTTAB« 10, 3) "*******************" 

580  PRINTTAB (10,  4)"*  *" 

590  PRINTTAB (10,5)"*  *" 

600  PRINTTAB <  10,  6)  "*  - - 

610  PRINTTAB < 10, 7) "*******************"  \ 

620  COLOUR  2iPRINTTAB(19, 4) “  \ 

630  PRINTTAB (12,  5) "RUNDT  PA  GULVET"  \ 

640  COLOUR  3 

650  PRINTTAB(12,  10) “For  2  spillere." 

660  COLOUR  2 s S* 174 

670  FOR  X=1  TO  38  STEP  2 
680  SOUND  1,-11,  S,  1 

690  SOUND  2,-11, 8-1, 1 

700  S=S-4 

710  PRINTTAB (X,  12) " _ " I 

720  NEXTi COLOUR  2 

730  PRINTTAB (6, 15) "GUL  styrer  med  A  Z  X  C" 

740  COLOUR  3 

750  PRINTTAB<8,  16) ".  " 

760  PRINTTAB(6, 17) "BLA  styrer  med  ,  .  /  l" 

770  COLOUR  1 

780  PRINTTAB (3, 21 ) "DET  GaLDER  OM  IKKE  AT  RAMME  NOGET. 
790  PRINT! COLOUR  2 

800  FOR  X=1  TO  38 

810  PRINTTAB (X,  24) 

820  NEXTi COLOUR  3 

830.  PRINTTABO,  28  »"Bruges  JOYSTICK  ?  (J/N)" 

840  FOR  S=-15  TO  O  STEP  0.3 

850  SOUND  1,S,  80,  1 

860  SOUND  2,  S,  81,  1 

870  NEXT 

880  QS=GET$ 

890  IF  QS*" J"  MX»0:G0T0  920 

900  IF  QS="N"  MX=1 : GOTO  920 

910  GOTO  880 

920  MODE  2 

930  VDU  23, 1,0;0;0;0; 

940  AP=0 i BP=0 : 0M“ 1 O i DX=20000 

950  COLOUR  144! CLSlGCOL  0,1: MOVE  0,4 


— ■>  i 


Rundt  på 


»Rundt  på  gulvet«  er  et  TRON- 
lignende  spil  beregnet  til  en 
32K  BBC  computer. 
Programmet  kører  kun  med 
to  spillere,  og  du  kan  selv 
vælge,  om  det  skal  foregå 
med  joystick  eller  fra  tastatu¬ 
ret.  1  øvrigt  er  programmet 
selvforklarende. 
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1110 
1120 
1130 
1  160 
1150 
1160 

1180 

1190 

1200 

1210 

1220 

1230 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 


gulvet 


1730 

1740 

1750 


960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1100 


DRAM  0, 1023IDRAW  1279,1023 
DRAM  1279,  4  *  DRflW  0,4 
X 1 X=300  s  Y 1 X=500 i  G Y 1 X= Y 1 X 
X2X-979 i Y2X=500 i GY2X=Y2X 
AX= 1  s BX-2 s  S 1 X=0 : S2X= 1 00 
FOR  Q=1  TO  2000SNEXT 
FOR  1=3  TO  1  STEP  -1 
PRINTTAB (9,  16)  ;  I 
FOR  S— 15  TO  O 
SOUND  1 , S, 60, 2 
SOUND  2,  S,  61,  2 
NEXT 

FOR  J=1  TO  1400SNEXT 
NEXT 

PRINTTAB (9, 16) "  “ 


1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2020 

2030 

2040 

2050 

2060 


»FX  15,0 
GOTO  270 

IF  POINT ( X2X, Y2X)  O  O  THEN  1410 

SOUND  17,0,200,1 

SOUND  16,  3,  7,  1 

ODU  19,0,3,0,0,0 

FOR  K=1  TO  1001NEXT 

ODU  19,0,0,0,0,0 

GCOL  0,3 

FOR  1=0  TO  8 

RXX=RND ( 100) -1 : RYX=RND (100) -1 
MOOE  X IX, YIXs  PLOT  1 , RXX,  RYX 
MOVE  XIX, Y1XSPL0T  1, -RXX, RYX 
MOOE  XIX, YIXs PLOT  1,  RXX, -RYX 
MOOE  XIX, Y1X« PLOT  1 , -RXX, -RYX 
NEXT 

AP=AP+l:GOTO  1600 
SOUND  17,0,200,1 
SOUND  16,3,7,1 
ODU  19,0,6,0,0,0 
FOR  K=1  TO  100 s NEXT 
ODU  19,0,0,0,0,0 
FOR  IX=0  TO  8 

RXX=RND < 100) -1 : RYX=RND ( 100) -1 
MOOE  X2X, Y2X: PLOT  1, RXX,  RYX 
MOOE  X2X, Y2XS  PLOT  1, -RXX, RYX 
MOOE  X2X, Y2XS  PLOT  1, RXX, -RYX 
MOOE  X2X, Y2Xl PLOT  1, -RXX, -RYX 

BP=BP+1 s GOTO  1600 
SOUND  17,0,200,1 
SOUND  16,3,7,1 
FOR  L=1  TO  2 
ODU  19,0,  7,  0;0 
FOR  K=1  TO  88* NEXT 
ODU  19,0,  O,  0;0 
FOR  M=1  TO  88 '.NEXT 
NEXT 

FOR  IX=0  TO  8 

RXX=RND  < 100) -1 1 RYX=RND ( 100) -1 
GCOL  O,  3 !  MOOE  XlX.YlXiPLOT  1, RXX, RYX 
GCOL  O,  6! MOOE  X2X,  Y2X! PLOT  1, RXX, RYX 
GCOL  O, 3 ! MOOE  XlX.YlXiPLOT  1, -RXX, RYX 
GCOL  O,  6:  MOOE  X2X,  Y2X  ’•  PLOT  1, -RXX,  RYX 
GCOL  O, 3 ! MOOE  XlX.YlXiPLOT  1, RXX, -RYX 
GCOL  O, 6 i MOOE  X2X,Y2XiPL0T  1, RXX, -RYX 
GCOL  O, 3 i MOOE  XIX, YlXi PL0T1, -RXX, -RYX 
GCOL  O, 6 ! MOOE  X2X, Y2X! PL0T1 , -RXX, -RYX 
NEXT I FOR  J=1  TO  4444  i NEXT 
COLOUR  15O:C0L0UR  O 
PRINTTAB (17, O) ; “  " 

'=0  THEN  PRINTTAB  ( 17,  1)  O  "ELSE  PRINTTAB  <  17,  1 ) 

PRINTTAB (17, 2) 

COLOUR  147 
PRINTTAB (O, O) 

=0  THEN  PRINTTAB (O, 1) O  "  ELSE  PRINTTAB (O,  1 ) 
PRINTTAB (O, 2) ; " 

OM=OM— 1 

IF  0M=1  THEN  1750 
IF  0M=0  THEN  1810 

COLOUR  1 481  PRINTTAB (2, 29) " 
COLOUR  7 1  PRINTTAB (2, 30) ; "  ";0M;"  omg.  tilbaoe 
PRINTTAB  <2,  31) 

GOTO  1790 

COLOUR  145  i COLOUR  7 

PRINTTAB  (2,  29)  '■ 

PRINTTAB (2, 30) ; "  Sidste  omgang!  " 

PRINTTAB (2,  31) ; " 

FOR  0=1  TO  7000  i  NEXT 
CLSiGOTO  950 

IF  AP=BP  COLOUR  144  i  PRINTTAB (5,  2) " 

IF  AP=BP  COLOUR  2iPRINTTAB (5, 3) "  UAFGJORT  " 

IF  AP=BP  COLOUR  144 1  PRINTTAB (5,  4) " 

IF  AP(BP  COLOUR  144 1  PRINTTAB <4, 2) " 

IF  AP (BP  COLOUR  31PRINTTAB (4, 3) "  GUL  VINDER  " 
IF  AP (BP  COLOUR  3  i  PRINTTAB (4, 4) " 

IF  AP) BP  COLOUR  1441C0L0UR  6  i  PRINTTAB (4, 2) " 

IF  AP) BP  PRINTTAB (4,  3) "  BLA  VINDER  " 

IF  AP) BP  PRINTTAB (4,  4)" 

COLOUR  1 45  5  FOR  1=15  TO  17 
PRINTTAB (7,  I)  ■' 

NEXT 

COLOUR  7 

PRINTTAB (7, 16) "  SLUT  " 

IF  WX=0  GOTO  2000 
COLOUR  148 1  PRINTTAB (O,  28) " 

COLOUR  7 1  PRINTTAB (O, 29) "T  ryk  A  og  i  samtidig" 
PRINTTAB  <0,  30)  " 

GOTO  2050 

COLOUR  148  i  PRINTTAB (O,  28) " 

COLOUR  7 ! PR I NTT AB ( O, 29 ) "  Tryk  beage  KNAPPER  “ 
PRINTTAB (O, 30) “ 

IF  ( ADVAL (O) AND3) “3  GOTO  920 
GOTO  2030 

IF  INKEY-66  AND  INKEY-73  GOTO  920 
GOTO  2050 
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Rendez-Vous  er  et  rumspil  til 
Texas  99  4A.  og  er  på  højde 
med  de  spil,  der  sælges  i  for¬ 
retningerne. 

Læs  Østerballe 


160  ! //SKEARM-GRAFIK+FASE// 
170  CALL  CLEAR  ::  FOR  F=1  TO 
15  ::  CALL  HCHAR (RND*23+1 , R 
ND*31+1,33) : :  NEXT  F  :: 

CALL  COLOR (0,11,11)::  CALL  H 
CHAR (24, 1,30,32) 

180  V=0  : :  A=0  s :  B=0  s  s  CAL 
L  SPRITE(#1, 100, 15. 1. 128, #2, 
96, 7+FL*4,185, RND*255+1 , 


O, (RND-RN&) *l6> 

190  CALL  SOUND (-10, 110,0) 

200  IF  FL=0  THEN  240 

210  FLA=1  ::  IF  0.6  THEN  C= 


SPRITE (#F, 104,RND*13+3,F*45- 
75.120,0, (RND-RND)*(C*10 
+20) ) : :  NEXT  F 

240  DISPLAY  AT ( 1 , 1 ) : USING  "S 
CORE  ####  TOP  ####" 

: POINT, HIGH 

250  DISPLAY  AT (3, 1 ) : USING  “F 
ASE  NR.  #.  #"  : FL+l+C; 

260  ! /////LANDINGSRUTINE//// 
270  CALL  KEY (3, K, S)::  A=A-(K 
=NED ) + ( K=OP ) +C  ::  B=B-( K=HO  J 
)+(K=VEN) 

280  DISPLAY  AT (3, 19) : USING  " 

BRINT  ####" : BR 

290  IF  BR<=0  THEN  650 

300  IF  K=OP  THEN  CALL  SOUND ( 

-350,-5,20)::  BR=BR— 5  ELSE  I 

F  K=VEN  OR  K=HOJ  THEN  CA 

LL  SOUND  < -350 ,-6,23)::  BR=BR 


310  CALL  POS ITI0N(#1, X,Y) : : 
IF  X>169  AND  X<200  THEN  CALL 
MOT I ON (#1,0,0, #2,0,0) : : 

CALL  COINu (ALL, V) 

320  IF  X>240  THEN  GOSUB  620 
330  IF  V  THEN  490  ELSE  IF  X> 
169  THEN  M*="  KOLLISION 

MED  JORD"  ::  GOTO  370 
340  IF  X< 169  THEN  CALL  COINC 
(ALL, V) : :  IF  V  THEN  M*="  KO 
LLISION  MED  ASTEROIDE"  : 

:  GOTO  370 

350  CALL  MOT I ON (#1,A,B) : :  GO 
TO  270 

360  ! / / //SPILLET  ER  SLUT//// 
370  CALL  DELSPRITE (#2, #3, #4, 
#5, #6)::  GOSUB  690  ::  FLAG=0 
: :  KRASH=0 

380  IF  TALE  THEN  CALL  SAYC'S 
ORRY+PARTNER" ) 

390  HIGH=MAX (HIGH, POINT) 

400  DISPLAY  AT (9, i ) : Mi; 

410  IF  POINT=HIGH  AND  POINT< 
>0  THEN  GOSUB  1460  ELSE  IF  B 
R>0  THEN  CALL  PAUSE (500) 


100  !/////////////////////// 
/  RENDEZ-VOUS  2.6  / 

/  VERSION  1.1 
/  /  LARS  QSTERBALLE  19 

84  /  //////////////////// 

//// 

110  CALL  CLEAR  ::  CALL  SCREE 
N  (2) 

120  C=. 1  : :  BR=400  : :  RANDOM 
IZE  ::  CALL  PEEK (-28672, TALE 
) !  ER  TALESYNTHESIZEREN 
TILSLUTTET? 

130  DATA  FIVE.FOUR, THREE, TWO 
, ONE, ZERO, Q 

140  CALL  C0L0R(1, 16, 1,2,7, 1, 


3,7, 1,4,7, 1) : :  F&R  É=S  to  l£ 
::  CALL  COLOR (F, 13, 1 ): : 

NEXT  F 

150  CALL  COLOR (O, 11, 11) : :  GO 
SUB  820  ::  GOSUB  1340  ::  CAL 
L  MAGNIFY (3) : :  GOSUB  175 


420  DISPLAY  AT (9,1) 

430  P0INT=0  : :  BR=400  : :  C=. 
1  : :  FL=0  : :  FLA=0  : :  IF  TAL 
E  THEN  CALL  SAY ( "PRESS+A 
1 +KE Y+TO+PLA Y+AGA IN") 

440  DISPLAY  AT ( 1 1 , 4) : "TRYK  R 
EDO  ELLER  BACK"; 

450  DISPLAY  AT (9,10) : "GAME  O 
VER"  ::  FOR  F=1  TO  15  ::  CAL 
L  KEY (3, K, S)::  IF  K=6  TH 
EN  170  ELSE  IF  K=15  THEN  GOS 
UB  1680  ::  GOTO  170 
460  NEXT  F  ::  DISPLAY  AT (9,1 
)::  FOR  F=1  TO  15  ::  CALL  KE 
Y (3, K, S) : :  IF  K=6  THEN  1 
70  ELSE  IF  K=15  THEN  GOSUB  1 
680  ::  GOTO  170 
470  NEXT  F  : :  GOTO  450 
480  ! /ER  LANDING  FDR  HAARD?/ 
490  IF  A>=4  THEN  M*=" 

FART  FOR  HØJ "  : :  GOTO  370 
500  CALL  POSITION (# 1 , X , Y, #2, 


XX,  YY)::  CALL  LOCATE ’( #  1 ,  1 69 
Y )  :  :  BO=ABS ( 1 6-ABS ( YY- Y ) 


) 


510  DISPLAY  AT (9, 9) : USING  "B 
ONUS  ###" : BO: : :  FOR  F=0  TO  3 
O  ::  CALL  SOUND (-99, 110, 

F, 600. F, 1000, F) : :  NEXT  F  :: 


Rende 


•730  ! ////INTET  BRAENDSTOF/// 
740  DISPLAY  AT  (9,  9)  :  "NUL  BRIE 
NDSTOF" 

750  FOR  F=0  TO  30  : :  CALL  SO 
UND (—99, 262, F)  :  :  NEXT  F  ::  M 


780  CALL  MOTION (#1,A+F,B) 

790  CALL  POSITION (#1, X,Y) : : 
IF  X >169  AND  X<200  THEN  RETU 


RN 


BIO  NEXT  F  ::  RETURN 

820  ! //////KARAKTERER/////// 

830  CALL  CHAR (33, "1") 

840  CALL  CHAR (40, "001C387070 
70381C00381C0E0E0E1C38" , 63, " 
007CEEEE0E3C003C " ) 

850  CALL  CHAR (100, "804023173 
F6C6C 1 C6FEFEFFFE34747E0090AC 
4FBFB949498F6F7F7FFC7E2E 
207") 

860  CALL  CHAR (104, "00001 36C8 
3C0B8C68 1 80404834030 1 0000C03 
00E9161 12C5398545522246B 


dIsplAy  AT (9, i / 

520  PO I NT =P0 I NT +B0  : :  DISPLA 
Y  AT (1,1): USING  "SCORE  ## 
##  TOP  ####": POINT 

.HIGH 

530  FOR  F=1 10  TO  HO+BO*15  S 

TEP  4  ::  DISPLAY  AT(3,25):US 

ING  "####" :F+BR-1 10  ::  C 

ALL  SOUND (-199, F*2, 10) : :  NEX 

TF::  BR=BR+F-U4 

540  IF  FLAG  THEN  570 

550  GOSUB  1020 

560  IF  BR<=0  THEN  650  ELSE  I 

F  KRASH  THEN  370  ELSE  IF  SUC 

CES  THEN  510 

570  IF  C< . 7  THEN  C=C+. 1 

580  IF  0.6  AND  FL<2  THEN  FL 

=FL+1 

590  IF  TALE  THEN  CALL  SAY ("G 
OOD+WORK") 

600  FLAG=0  : :  SUCCES=0  : :  CA 

LL  PAUSE (300)::  CALL  DELSPR I 

TE (ALL)::  GOTO  180 

610  ! //////FOR  HOEJT//////// 

620  DISPLAY  AT (9, 9) : "HIMMELS 

TREJF"; 

630  A=— A  ::  CALL  MOTION (#1,A 
, B) : :  FOR  F=0  TO  30  STEP  2  : 
:  CALL  SOUND ( -99 , 523 , F)  : 

:  NEXT  F  ::  DISPLAY  AT (9, 9): 


870  CALL  CHAR (64, "3C42BDA1A1 
BD423C00FEEEEEEEFEEEEE00FEEE 
EEFCEEEEFE007CEEEEE0EEEE 
7C"  ) 

880  CALL  CHAR (68, "OOFCEEEEEE 
EEEEFCOOFEEEEOFOEOEEFEOOFEEE 
EOFOEOEOEOOOFEEEEEEOFEEE 
FE") 

890  CALL  CHAR ( 72 , " OOEEEEEEFE 
EEEEEE00FE3838383838FE00FEEE 
0E0EEEEEFE00EEEEEEF8EEEE 
EE") 

900  CALL  CHAR (76, "OOEOEOEOEO 
EEEEFE00EEFED6C6EEEEEE00CEEE 
FEFEFEEEE6007CEEEEEEEEEE 
7C" ) 

910  CALL  CHAR ( 80 , " OOFEEEEEEE 
FEEOEOOOFEEEEEEEEEECFAOOFEEE 
EEEEFCEEEEOOFEEEEOFEOEEE 
FE") 

920  CALL  CHAR (84, "00FEFEBA38 
38383800EEEEEEEEEEEEFE00EEEE 
EEEEEE6C3800EEEEEEEEC6D6 


FE" 


640  CALL  POSITION (#1,X,Y) : : 
RETURN 

650  DISPLAY  AT (3, 19) : USING  " 
BRINT  ####": O 

660  GOSUB  740  ::  DISPLAY  AT ( 
9,1) 

670  GOSUB  680  : :  FLAG=0  : :  K 
RASH=0  : :  GOTO  390 
680  ! //////EKSPLOSION/////// 
690  CALL  POSITION (#1. X, Y) : : 


CALL  DELSPRITE (#5, #65 : :  IF  Y 
>248  THEN  Y=248 
700  CALL  MAGNIFY ( 1 ) : :  CALL  S 
PR I TE (#1 , 100,7, X, Y,-20,-20,# 
2, 101,5, X+8, Y , -5,-40) 


710  CALL  SPRITE (&3, 102,3, X.Y 
+8, -20, 20, #4, 103, 1 1 , X+8, Y+8, 
-5.40) 

720  FOR  F=0  TO  30  : :  CALL  SO 
UND (—99, —5, F) : :  NEXT  F  : :  CA 
LL  DELSPRITE (ALL) : :  CALL 
MAGNIFY (3) : :  RETURN 


930  CALL  CHAR (88, "00EEEEFE38 
FEEEEE00EEEEEE7C38383B00FEFE 
3E7CF8FEFE" ) 

940  CALL  CHAR (48, "007CEEEEEE 
EEEE7C003878F8383838FE00FEEE 
OEFEEOEEFEOOFEEEOE 1 COEEE 
FE") 

950  CALL  CHAR (52, "OOEEEEEEEE 
FEOEOEOOFEEOFEOEEEEEFEOOFEEE 
EOFEEEEEFEOOFEEEOE 1 C3838 
38") 

960  Q*= " FFFFFFFFFFFFFFFF "  : : 
B*=RPT* ( " O ”,  1 6 ) : :  CALL  CHAR 
(96,  Q$&B$&Q$S<B$) 

970  CALL  CHAR (56, "OOFEEEEEFE 
EEEEFEOOFEEEEEFEOEEEFE ” ) 

980  CALL  CHAR (108," 0704023 1 3 
F2ABF7F7FBF2131 190D0703E0204 
08CFC54FDFEFEFDFCFCF8F0E 
OC") 

990  CALL  CHAR (91," 007EDAD8FC 
D8DADE" ,92, " 007AE4EEFEEE4EBC 
" , 93 , " 0038007CEEFEEEEE " ) 

1000  RETURN 

1010  ! ////SAMMENKOBLING///// 
1020  FJ_AG=  1  ::  A=0  ::  B=0  :: 

CALL  SPRITE (#6, 108, RND* 13+3 
, 26 , RND  *255+ 1 , O,  ( RND-RND 
) * (C*10+13) ) 
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z-Vous 


1030  DISPLAY  AT (9, 9) : "RENDEZ 
-VOUS"  : :  FOR  F=0  TO  30  : :  C 
ALL  SOUND<— 99, 1200, F) : :  I 

NEXT  F  K 

1040  RESTORE  : :  GOSUB  1240 
1050  CALL  KEY  <3, K-S) : :  IF  K< 
>0P  THEN  1050  ELSE  DISPLAY  A 
T  <9, 1 ) 

1060  CALL  KEY (3, K, S) : :  A=A— ( 
K=NED ) + ( K=OP ) +C  : :  B=B— ( K=HO 
J)+(K=VEN) 

1070  IF  K=OP  THEN  CALL  SOUND 
(-350,-5,20)::  BR=BR-5  ELSE 
IF  K=VEN  OR  K=HOJ  THEN  C 
ALL  SOUND ( -350 ,-6,23)::  BR=B 
R-l 

1080  DISPLAY  AT ( 3 , 19) : US I NG 
"BRINT  ####" : BR 
1090  IF  BR<=0  THEN  RETURN 
1100  CALL  POSITION (#1,X,Y> 
1110  IF  X >169  AND  X<200  THEN 
KRASH=1  ::  M*="  KOLLISI 

ON  MED  JORD"  : :  RETURN 
1120  CALL  POS I T I ON (#1,X,Y) 
1130  IF  X<47  THEN  1180 
1140  CALL  CO I NC ( ALL ,  V )  i  :  IF 
V  AND  X< 169  THEN  KRASH=1  :: 
M*="  KOLLISION  MED  ASTE 
RO I DE"  ::  RETURN 
1150  IF  X<47  THEN  1180 
1160  IF  X >240  THEN  GOSUB  620 
1170  CALL  MOT I ON (#1,A,B) :  :  G 
OTO  1060 

1180  CALL  CO I NC (ALL, V) : :  IF 
NOT  V  THEN  1160 
1190  CALL  MOTION (#1 ,0,0, #6, O 
.0)::  CALL  POSITION (#1 , X , Y, # 
6,  XX, YY) 

1200  IF  A<— 4  OR  A>4  THEN  KRA 
SH=1  ::  M*="  FART  FOR 

HØJ "  : :  RETURN 
1210  IF  X<26  THEN  KRASH=1  :: 

M*="  KOLLISION  MED  SKIB 

"  : :  RETURN 

1220  SUCCES=1  ::  B0=ABS(16-A 
BS(YY-Y))::  RETURN 
1230  ! /////NEDTAELLING////// 
1240  FOR  F=5  TO  O  STEP  -1 
1250  DISPLAY  AT (9, 9) : USING  " 
TÆLLING  : F: 

1260  IF  TALE  THEN  READ  A*  :: 

CALL  SAY ( A* ) ELSE  GOSUB  1320 
1270  NEXT  F 

1280  DISPLAY  AT(9,9):M  LIFT 
OFF  "s 

1290  IF  TALE  THEN  CALL  SAY  ( " 
CONNECTED" ) ELSE  GOSUB  1320 
1300  RETURN 

1310  !//////// /BIP////////// 
1320  CALL  SOUND (-10, 2000, O) : 

:  FOR  P=1  TO  200  ::  NEXT  P  : 

:  RETURN 

1330  ! ////START-BILLEDE///// 
1340  CALL  HCHAR (1,3, 30, 30) : : 

CALL  HCHAR (24. 3, 30, 30) : :  CA 
LL  VCHAR (2, 3,30,22) : :  CA 
LL  VCHAR (2, 32, 30, 22) 

1350  DISPLAY  AT (7, 8) : "RENDEZ 
-VOUS  2.6": 

1360  DISPLAY  AT ( 1 1 , 13) : "3  19 
84":::  DISPLAY  AT ( 13, 8) : "LAR 
S  ØSTERBALLE": 

1370  IF  TALE  THEN  CALL  SAY ( " 
WELL+COME+TO+THE 1 +SPACE+COMM 
AND") 

1380  DISPLAY  AT ( 17, 7) : "VÆLG 
TASTER  (J/N)?"; 

1390  CALL  KEY (3, K, S) : :  IF  K< 
>74  AND  K<  >78  THEN  1390 
1400  IF  K=74  THEN  GOSUB  1550 
::  GOTO  1420 


1410  0P=69  ::  NED=88  ::  HOJ= 
68  ::  VEN=83  ::  DISPLAY  AT ( 1 
7,7):"  BRUG  PILENE. 

" : : :  CALL  PAUSE (200) : :  DISPL 
.AY  AT (17, 7):" 

14^0  DISPLAY  AT (17, 3):" 

VÆLG  NIVEAU?  '■ : 

1430  CALL  KEY (3, K, S) : :  IF  S< 
=0  THEN  1430  ELSE  IF  K=74  TH 
EN  GOSUB  1680 
1440  CALL  CLEAR  ::  RETURN 
1450  ! //HIGHSCORE-MELDING/// 
1460  FOR  F=1  TO  3 
1470  DISPLAY  AT ( 1 , 1 ): USING  " 
SCORE  ####": POINT: 

1480  FOR  G=0  TO  30  STEP  2 
1490  CALL  SOUND (-99, 330, G) 
1500  NEXT  G 

1510  DISPLAY  AT (1,1): RPT* ( " 

lé>20  fcALL  PAUSE  ( 100)  :  :  NEXT 
F 

1530  DISPLAY  AT ( 1 , 1 ): USING  " 
SCORE  ####  TOP  #### 

“: POINT, HIGH: : :  RETURN 
1540  I/////VAELB  TASTER///// 
1550  CALL  CLEAR 
1560  CALL  HCHAR (1,3, 30, 30) : : 
CALL  HCHAR (24, 3, 30, 30) : :  CA 
LL  VCHAR (2, 3, 30, 22) : :  CA 
LL  VCHAR (2, 32, 30, 22) 

1570  DISPLAY  AT (3, 3) : "HVILKE 
N  TAST  FOR:"; 

1580  DISPLAY  AT (5, 3) : "OP" : 

1 590  ACCEPT  AT ( 5 , 1 1 ) VAL I DATE 
(UALPHA, NUMERIC, " ; /=" ) BEEP  S 
I ZE ( 1 ) : OP*  : :  OP=ASC (OP* 

) 

1600  DISPLAY  AT(7, 3) : "NED": 
1610  ACCEPT  AT ( 7 , 11) VAL I DATE 
(UALPHA, NUMERIC, '•;/=") BEEP  S 
I ZE ( 1 ) : NED«  ::  NED=ASC (N 
ED*) 

1 620  D I SPLAY  AT ( 9 , 3 ) : " VENSTR 

16^0  ACCEPT  AT (9, 11) VALIDATE 
(UALPHA,  NUMERIC,  f,:/=")  BEEP  S 
I ZE ( 1 ) : VEN*  ::  VEN=ASC(V 
EN*) 

1640  DISPLAY  AT ( 1 1 , 3) : "HØJRE 

1&50  ACCEPT  AT(11, 11) VALIDAT 
E  (UALPHA,  NUMERIC,  ; /="  )  BEEP 
SIZE(l) :HOJ*  ::  HOJ=ASC( 
HOJ*) 

1660  GOSUB  1320  ::  RETURN 
1670  ! /VAELG  SVAERHEDSGRAD// 
1680  CALL  CLEAR  : :  CALL  HCHA 
R ( 1,3, 30, 30) : :  CALL  HCHAR (24 
,3,30,30)::  CALL  VCHAR (2 
,3, 30, 22) : :  CALL  VCHAR (2, 32, 
30,22) 

1690  DISPLAY  AT ( lO. 3) : "SVÆRM 


EDSGRAD? ": 

1700  DISPLAY  AT (12, 3) : "VÆLG 
1,2  ELLER  3"; 

1710  ACCEPT  AT (12, 20) BEEP  VA 
LIDATE ( " 123" ) SIZE ( 1 ) : L  ::  FL 
=L-1 

1720  FOR  F=0  TO  30  STEP  10  : 

:  CALL  SOUND (-99, 3000, F, 2900 
, F, 3100, F) : :  NEXT  F 
1730  RETURN 

1740  ! ////INSTRUKTIONER///// 
1750  CALL  SCREEN (15)::  DISPL 
AY  AT (1,1):"  RENDEZ-VOU 

S  2.6  - ■' - 


M  MULIGT  PA  KLODEN  ’ QUAQ’ . " 


LANDE  NØJAGTIGT  PA  DEN" 

1780  DISPLAY  AT ( 12, 1 ) : "LILLE 
PLATFORM,  DER  BEVÆGER 


IKKE  FOR  HURTIGT  oé 

I 

SÆR  IKKE  VED  SIDEN  AF. . . " 
1800  DISPLAY  AT(20, 1) : "NAR  D 
U  ER  LANDET  ER  DIN 


NKOBLING  MED  ’EAGLÉN’" 

1820  GOSUB  1910 

1830  DISPLAY  AT(1,1):"HER  SK 

AL  DU  LIGELEDES  VÆRE 

FO 

RSIGTIG,  OG  LAND  IKKE  PA" 
1840  DISPLAY  AT (5, 1 ): "TOPPEN 
AF  FARTØJET. . . . 

FO 

R  HVER  AF  DISSE  FASER  DU" 
1850  DISPLAY  AT (9, 1 ) : “FULDFØ 
RER,  VIL  TYNGEKRAFTEN 

ST 

I GE ( SE  ’ FASE  NR’),  OG  NAR" 
1860  DISPLAY  AT (13, 1):"DU  HA 
R  GENNEMFØRT  SEKS  FASER 

B 

LIVER  DU  SENDT  VIDERE  TIL” 
1870  DISPLAY  AT ( 17, 1 ) : "NÆSTE 
SKÆRM,  HVOR  NYE  FOR- 

H 

INDRINGER  DUKKER  OP. " 

1880  DISPLAY  AT(24,1):“ 

HELD  OG  LYKKE. . . " 

1890  GOSUB  1910  : :  CALL  SCRE 
EN (2) : :  RETURN 
1900  ! ///TILFAELDIGE  LYDE/// 
1910  TQ=RND* 1000+ 140  ::  FOR 
F=0  TO  30  STEP  2  : :  CALL  KEY 
(3, K, S) : :  IF  S  THEN  1930 
ELSE  CALL  SOUND (-99, TQ+F.F) 
::  CALL  SOUND (-99, TQ+100+F, F 
) 

1920  NEXT  F  ::  GOTO  1910 
1930  CALL  CLEAR  ::  RETURN 
1940  ! ////PAUSE  RUTINE////// 
1950  SUB  PAUSE (X)::  FOR  F=1 
TO  X  : :  NEXT  F  : :  SUBEND 

1970  ÉND 
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I  programmet  har  du  mulig¬ 
hed  tor  15  poster  t  hver  må¬ 
ned  og  startes  med  GOTO 
3720  den  tørste  gang,  det  kø¬ 
res.  Dette  gøres,  tor  at  tå  de 
danske  karakterer  genereret. 
Programmet  har  mulighed  tor 
at  oprette  budgetter,  analy¬ 
ser,  indtaste  indtægt  og  se 
månedens  torbmg.  Som  en 
ekstra  tinesse  bliver  budget¬ 
posterne  automatisk  sat  i  alia- 
betisk  orden.  □ 

OleL.  Larsen 

1000  REM  HJErinE-BUDGETn  OLE  L.  LARSEN 
1010  REM  OPRETTE  BUDGET 
1020  DIH  0C 15, 12) 

1030  DIH  A*( 15, 12, 15) 

1040  DATA  "JANUAR", "FEBRUAR", "NARTS", "AP 
RIL" , "HAJ " , " JUNI " , " JULI " , "AUGUST" , "SEPTE 
nBER", "OKTOBER", "NOUENBER", "OECEnBER" 
1050  Oin  n*(12,9) 

1060  RESTORE 
1020  FOR  n»l  TO  12 
1080  read  n*cn) 

1090  NEXT  n 
1100  LET  BI-Ø:  LE1 
BI3=ø:  LET  BI4=0 
1110  PRINT  INK  1  i 
DGET  PROGRAN 
1120  PRINT  INK  7. 


1=0:  LET  Bl 2=0 


PAPER  1 
!  ER  PLADS  TIL  15  POSTER 


130  PRINT  INK  7 


INUERSE  li AT  0,01"  BU 


16, Øi" 


PAPER  liAT  17, Øi"  SKR 
IU  >X’  1  DEN  DU  IKKE  BRUGER  " 

1140  BEEP  .2,20:  INPUT  PAPER  6  i "HUILKET 
hR  DsKKER  BUDGETTET  "  iT 
1150  FOR  0=1  TO  15 
1160  PRINT  AT  Q, 2-LEN  STR*  QiQ 
1170  ÉEEP  .2,20:  INPUT  PAPER  6  i "NAUN  PH 
UDGIFTEN  "i  LINE  2* 

1180  LET  A*(Q, 1)=2* 

1190  PRINT  AT  Q,3iA*CQ,l)i 
1200  NEXT  Q 
1210  CLS 

1220  FOR  0=1  TO  15 
1230  FOR  n=l  TO  15 
1240  PRINT  INK  1  i 
TAST  BEL  IB  FOR 
1250  PRINT  OUER  I 
,1) 

1260  PRINT  INK  7  i  PAPER  1 iAT  16,0  i "SKRI 
Cl  0  I  DE  POSTER  DER  HEDDER  X" 

1270  PRINT  AT  H, 2-LEN  STR*  n ;H ;AT  n,3;n* 

cn)!"-"; 

1280  BEEP  .2,20:  INPUT  -  PAPER  6 ; "BEL IB  F 
OR  NhNEDEN  " iACO.N) 

1290  PRINT  AT  n, 25-LEN  STR*  A(Q,n)iACQ,n 
)  i  AT  n,  27  J  "ler .  " 

1300  NEXT  n 

1310  PRINT  INK  7 i  PAPER  1 JAT  18,0  i"  E 
R  DISSE  TAL  RIGTIGE  CJ'N) 

1320  PAUSE  0 

1330  .IF  1NKEY*="J"  AND  Q<16  THEN  CLS  : 
NEXT  Q 

1340  IF  INKEY*="J "  AND  Q>15  THEN  GO  TO 
1370 


INUERSE  1  i AT  0,0 


FLASH  1  SF 


1350  IF  INKEY*="N"  THEN  CLS  :  GO  TO  123 
0 

1360  GO  TO  1320 

1370  GO  SU8  3120 

1380  GO  TO  3330 

1390  REN  BUDGET  OUERSIGT 

1400  LET  n=l 

1410  CLS  :  PRINT  INK  li  INUERSE  1 iAT  0, 
Øi"  BUDGET  OUERSIGT 

1420  PRINT  OUER  li  FLASH  1 iAT  0, 18in*CN 
) 

1430  PRINT  PAPER  6 iAT  0,28iY 

1440  GO  SUB  3230 

1450  LET  T0=0 

1460  FOR  T=1  TO  15 

1470  LET  T0=T0+ACT , N) 

1480  NEXT  T 

1490  PRINT  BRIGHT  1 iAT  17,2  i "SAHLEDE  UD 

gifter  i  ";n*cn) 

1500  PRINT  8RIGHT  1 iAT  18, 13iT0i"  kr." 
1510  PRINT  PAPER  6i  BRIGHT  li  INK  0 iAT 
20,3;"5  •  TILBAGE  8  =  FREH" 

1520  GO  SUB  3300 
1530  PAUSE  0 

1540  IF  INKEY*="0"  THEN  GO  TO  3330 
1550  IF  INKEY«="5"  THEN  LET  n=n-l s  GO  T 
0  1580 

1560  IF  1NKEY*="8"  THEN  LET  n=ntl :  GO  T 
0  1580 

1570  GO  TO  1530 

1580  IF  n<l  THEN  LET  N=1 

1590  IF  n>12  THEN  LET  n=12 

1600  GO  TO  1410 

1610  REH  RETTE  BELIB  I  BUDGET 

1620  CLS 

1630  PRINT  INK  li  INUERSE  1 iAT  0,0i"  RE 
TTE  BELIB  I  BUDGET 

1640  FOR  0=1  TO  15:  PRINT  AT  0,3-LEN  STR 
*  QiQ:  PRINT  AT  Q,5iA*CQ,l):  NEXT  Q 
1650  PRINT  PAPER  li  INK  7;AT  17, øi" 
INDTAST  >>0<<  FOR  NENY 
1660  BEEP  .2,20:  INPUT  PAPER  6;"INDTAST 
NUnnERET  Ph  DEN  BUDGET-  POST  DU  UIL  RET 
TE  "iQ 

1670  IF  Q=ø  THEN  GO  TO  3330 
1680  CLS 

1690  PRINT  INK  li  INUERSE  1 ;AT  0,0;"  RE 
TTE  BELIB  I 

1700  PRINT  OUER  li  FLASH  1 iAT  0,16;A*CQ 
>1) 

1710  FOR  n=l  TO  12 

1720  PRINT  AT  n, 3-LEN  STR*  HiH :  PRINT  AT 
n,5;n*cn);"-" \ 

1730  PRINT  AT  n, 25-LEN  STR*  A(Q,n) ;A(Q,n 
) iAT  n, 27 i"kr . " 

1740  NEXT  n 

1750  PRINT  PAPER  li  INK  7 iAT  17, Øi" 
INDTAST  »0<<  FOR  NENY 
1760  BEEP  .2,20:  INPUT  PAPER  6  i "INDTAST 
NUW1ERET  Ph  HhNED  DER  SKAL  RETTES  "  ;n 
1770  IF  n=0  THEN  GO  TO  3330 
1780  PRINT  AT  n,15i" 

1790  PRINT  AT  17, øi" 

1800  BEEP  2,20;  INPUT  PAPER  6  i "NYT  BEL 
IB  "jA£Q,n) 

1810  PRINT  AT  n, 25-LEN  STR«  ACQ,n);ACQ,n 
)  IAT  n,  27  i  "k.r .  " 

1820  PRINT  PAPER  li  INK  7;AT  17, Øi" 
INDTAST  ?70«  FOR  I1£NY 
1830  GO  TQ  1690 
1840  REN  INDTESTE  INOT«GT 
1850  CLS 

1860  PRINT  INK  li  BRIGHT  1 iAT  0,0!"  IND 
T*GTER  FOR  HELE  hRET 

1670  PRINT  AT  2,ØJ"1  .*  BRUTTOINDTsGT  " iA 
T  2,  29j "kr  .  " 

1888  PRINT  AT  4,0i"2  =  hRLIG  RENTEINDTsG 
T  ".  ;AT  4,  29  i  Vkr  .  " 

1890  PRINT  AT  6,0i'.'3  =.  AKTIE-UDBYTTE  "JA 
T  6, 29i"kr . ” 

1900  PRINT  AT  8, 0 i "4  =  ANDRE  INOTsGTER  " 
iAT  8, 29 !"kr , " 

1910  PRINT  AT  1 0 , 0  i " 5  =  SORT  ARBEJDE  " iA 
T  10, 29 l"kr . " 

1920  PRINT  AT  2,28-LEN  STR*  BI iBI 
1930  PRINT  AJ  4,28-LEN  STR*  BIliBIl 
1940  PRINT  AT  6,28-LEN  STR«  BI2iBI2 
1950  PRINT  AT  8,28-LEN  STR*  BI3;Bi3 
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2010  PRINT  AT  19,0;"  INDTsGT  PR.  MhNED 
"  iINT  CB1VI2J;"  kr." 

2020  GO  SLIB  3300 
2030  PAUSE  0 

2040  IF  INKEY*="ø"  THEN  GO  TO  3330 

2050  IF  INKEY*="1"  THEN  GO  TO  2110 

2060  IF  INKEY*="2"  THEN  GO  TO  2130 

2070  IF  1NKEY*="3"  THEN  GO  TO  2150 

2080  IF  1NKEY*="4"  THEN  GO  TO  2170 

2090  IF  INKEY*="5"  THEN  GO  TO  2190 

2100  GO  TO  2030 

21JØ  BEEP  .2,20:  INPUT  PAPER  6j"hRLIG 
RUTTOINDTsGT  " ;B1 
2120  GO  TO  1840 

2130  BEEP  .2,20:  INPUT  PAPER  6;"hRLIG 
ENTE-INOTsGT  " ;BI 1 
2140  GO  TO  1840 

2150  BEEP  .2,20:  INPUT  PAf’ER  6;"AKTIE 
OBYTTE  " SBI2 
2160  GO  TO  1840 

2170  BEEP  .2,20:  INPUT  PAPER  6; "ANDRE 
NOTsGTER  •' ;BI3 
2180  GO  TO  1840 

2190  BEEP  .2,20:  INPUT  PAPER  6  i "SORT  A 

BEJOE  " IBI4 

2200  GO  TO  1840 

2210  REM  BUOGET  ANALYSE 

2220  LET  SAM=0 

2230  CLS 

2240  LET  X=0 

2250  PRINT  INK  li  INUERSE  1  iAT  0,0;"  Bl 
DGET-ANALYSE  FOR  HELE  hRET 


IF  1NKET«="0"  THEN  GO 

GO  TO  2420 

REM  FJERNE  BUDGETPOSTER 
CLS 

PRINT  INK  1  i  TNUERSE  1 

BUDGETPOSTER 

FOR  0=1  TO  15 

PRINT  AT  0,2-LEN  STR*  Q 

) 

NEXT  Q 
GO  SUB  3300 

PRINT  INK  7 i  PAPER  1 ;A 
BUDGETPOST  UIL  DU  FJERNE 
BEEP  .2,20:  INPUT  Q 
IF  Q*0  THEN  GO  TO  3330 


PAUSE  0 

IF  INKEY*="N"  THEN  GO  TO  2700 
IF  INKEY*="J"  THEN  GO  TO  2760 
GO  TO  2660 

BEEP  .2,20:  PRINT  INK  7  i  PAPER  1 ;A 
1 0  ;"UIL  DU  FJERNE  FLERE  BUDGETPOSTER 


PAUSE  ø 

IF  INKEY*="N"  THEN  GO  TO  3330 
IF  INKEY*="J"  THEN  GO  TO  2450 
GO  TO  2720 

REM  OPRETTE  NY  BUDGETPOST 
CLS 

PRINT  INK  li  INUERSE  1 iAT  0,0;"  OP 
NY  BUOGETPOST 
FOR  0=1  TO  15 

PRINT  AT  0,2-LEN  STR*  Q iO iAT  Q,3;A* 


FOR  0=1  TO  15 

IF  A*(Q> 1 )""X  "  THEN 

D  2910 
NEXT  O 

BEEP  .2,20:  PRINT  INK  7  i  PAPER  1 iA 
,Øi"DER  ER  IKKE  PLADS  TIL  EN  NY  POST 


L  BUDGETPOST 
2920  LET  A*CQ, 1)=2* 
2930  CLS 

2940  PRINT  INK  li  IN 
TAST  BEL  IB  I 
2950  PRINT 
,  1) 

2960  FOR  M=1 
2970  PRINT  A 
M, 5 iM*(MJ i " 

2980  PRINT  A 

2990  NEXT  M 
3000  FOR  H=1 
3010  PRINT  A 
3020  BEEP  .2 


PAUSE  0 

IF  INKEY*="N"  THEN  GO  TO  3330 
IF  INKEY*="J"  THEN  GO  TO  2760 
GO  TO  3080 

REM  ALFABETISK  ORDEN 

PRINT  AT  17, Øj"  UENT  LIGE  ET  I 


FOR  M=1  TO  12 

LET  E*=A*CK,MJ:  LET  A*C 

f  A*CC,M)=E* 

LET  E=ACK,MD:  LET  ACK,M 

:,md=e 

NEXT  M 
NEXT  C 
NEXT  K 
RETURN 

REM  OPSTILLING 
FOR  Q=1  TO  15 


RETURN 

REM  TRYK  0  FOR  MENY 
PRINT  INK  0;  PAPER  6ifl 
>>0«TAST  FOR  MENY" 
RETURN 
REM  MENY 
BORDER  4 
CLS 

POKE  23609,20 
POKE  23658,8 
PRINT  INUERSE  1 iAT  0,e 
MENY  MENY  MENY  » 

PRINT  *"  1  =  LAUE  NYT  B 
PRINT  ' "  2  =  BUOGET  OUE 


1  =  LAUE  NYT  BUDGET" 

2  =  BUOGET  OUERSIGT" 

3  =  BUDGET  ANALYSE" 

4  =  INDTASTE  INDTsGTER" 

5  =  RETTE  BEL  IB  I  BUDGET" 

6  =  FJERNE  BUDGET  POST" 

7  =  OPRETTE  NY  BUOGET  POS 


PRINT  PAPER  7 i  INK  2;  FLASH  li’ 
ED  BREAK  BRUG  GOTO  3330 
PAUSE  0 

IF  ]NKEY*=" 1 "  THEN  GO  TO  3580 
IF  INKEY*="2"  THEN  GO  TO  1390 


3590  PRINT  BRIGHT  1;"  DU  SLETTER  ALLE 
E  DATA  DER  ER  " 

3600  PRINT  BRIGHT  li"  I  BUDGETTET  NU. 

TRYK  CJ'ND  " 

3610  PAUSE  0 

3620  IF  INKEY*="J"  THEN  RUN 

3630  IF  INKEY*="N"  THEN  GO  TO  3330 

3640  GO  TO  3610 

3650  REM  SAUE  ROUTINE 

3660  BEEP  .5,0 

3670  CLS  :  PRINT  AT  10,0;"  GIR  KLF 
TIL  OPTAGELSE 

3680  SAUE  "BUDGET"  LINE  3720 
3690  PRINT  AT  10,0;"  SPOL  TILBAGE  F 
UERIFY 

3700  BEEP  1,0:  UERIFY  "BUDGET" 

3710  STOP 

3720  REM  DANSKE  BOGSTAUER 

3730  RESTORE  3750:  FOR  X"0  TO  7:  READ  S 

3740  POKE  USR  "S"+X,S 

3750  DATA  0,30,48,80,126,80,94,0 

3760  NEXT  X 

3770  RESTORE  3790:  FOR  X=0  TO  7:  READ  F 
3780  POKE  USR  "F"tX,F 
3790  DATA  0,60,70,74,82,98,60,0 
3800  NEXT  X 

3810  RESTORE  3830:  FOR  X=0  TO  7:  READ  H 

3820  POKE  USR  "H"+X,H 

3830  DATA  24,0,60,66,66,126,66,0 

3840  NEXT  X 

3850  GO  TO  3330 

3860  REM 

BYTES  FORBRUG 

3870  PRINT  Oer  er  bru9t  "  ;  tPEEK  236 

41*256*PEEK  23642D-CPEEK  23635»2S6*PEEK 
23636) i "  bytes":  PRINT  Der  er  " ;6553 
6-USR  7962;"  bytes  tilbage":  LET  mer=655 
36-USR  7962:  LET  nmer=mer/1024 :  PRINT  »" 
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4.  REM  KodninssprocBdure 

10  LET  L  »LEN  X*:  LET  St=4*(INT 
(1/4)) -3:  LET  Y>= " “ .  IF  l <3  THE 
N  LET  Y$»Xt;  RETURN 

IS  LET  vo=0:  DIM  X (4) :  IF  S t +6 
■l  TMEN  LET  X*=X*+”  GO  TO  10 

FOR  r=l  TO  St  STEP  4.  FOR  n 
»1  TO  4:  LET  xa=CODE  Xf  (f +n-l)  : 
LET  x  (n )  =xa  -46-7*  (xa  >  »65)  -6*  (x a  > 
-97)  +15* (xa~32>  ;  IF  X  tn)  >=64  OR 
XCn)  <0  TMEN  GO  TO  9999 

25  NEXT  n:  LET  ql=INT  IX (4) /16 
)  :  LET  Y*=Y$+CHR$  Cx  (1)  +  64*ql)  i 
LET  q2=INT  ( (X <4> -16*ql) /4) ;  LET 
Yf=Y*+CHR$  CX  (2)  +64*q2)  :  LET  Y* 
=Y$+CHR*  (X  (3)  +64#  CX  (4)  -4*  C4*qi+ 
q2> i ) :  LET  vosvo+l:  NEXT  T:  LET 
Y$=Y$fX$(StH  TO  l>  :  RETURN 

50  REM  Udpr intningsprocedure 

SS  LET  l »LEN  X*:  DIM  X (4) .  DIM 
V (4) :  LET  Y$»" “ :  IF  t <3  TMEN  LE 
T  Y *— X$ :  RETURN 

60  FOR  r =1  TO  1-2  STEP  3;  FOR 
n  =1  TO  3:  LET  X(n)=CGDE  x$(r+n-i 
):  LET  y  tn)  =INT  (X(n)/64>:  LET  X 
(n)  =x  (n)  -64*y  tn)  :  NEXT  n.  LET  xc 
4)  =9  Cl)  *16+U  (2)  *4+y  (3)  :  FOR  n=i 
TO  4.  LET  Y*=Y»+CHR*  CxCn)+46+7» 
Cx  <n>  >=12)  +6*  (x  tn)  >37)  -15*-  (x  (n )  =* 
1)).  NEXT  n:  NEXT  f:  LET  Y$=Y*+X 
$tr  TO  );  RETURN 


Programmet  består  at  to  sub¬ 
rutiner  og  har  til  formål  at  re¬ 
ducere  længden  at  strenge, 
idet  den  tørste  subrutine  kan 
reducere  antallet  at  karakte¬ 
rer  i  en  vilkårlig  streng  med  1 
for  hver  tjerde  karakter.  Den 
anden  subrutine  kan  så  til 
gengæld  genskabe  den  op¬ 
rindelige  streng  i  fuld  læng¬ 
de. 

Programmet  vil  specielt  være 
anvendeligt  i  databasepro¬ 
grammer,  hvor  det  kan  give 
kapacitetsforøgelse,  som  sva¬ 
rer  til  typisk  5- 1 0  K,  ekstra  hu¬ 
kommelse  (48  K  Spectrum). 
Der  er  imidlertid  også  nogle 
begrænsninger: 

Strengene  må  kun  rumme 
bogstaver  (store  som  små),  tal 
samt  punktum  og  mellem¬ 
rum, 

Både  kodning  og  dekodning 
tager  lidt  tid,  men  program¬ 
met  er  så  kompakt  opbygget, 
at  det  ikke  er  overvældende. 
F.eks.  vil  det  for  en  streng  på 
30  karakterer  tage  ca.  2  sek. 

I  en  database  bør  man  ikke 
anvende  programmet  på  de 
oplysninger,  man  typisk  vil 
søge,  under  (t.eks.  journal¬ 
numre,  personnummer,  nav¬ 
ne  ell.  lign,). 

Disse  oplysninger  bør  man 
bevare  i  ukodede  strenge. 

I  mange  programmer  vil  dis¬ 
se  ting  ikke  have  så  stor  be¬ 
tydning  sammenlignet  med 
den  kapacitetsforøgelse  man 
vil  tå  til  rådighed. 

I  øvrigt  kan  oplyses,  at  for 
begge  subrutiner  gælder,  at 
de  ændrer  et  x  til  y.  Det  y,  der 
kommer  ud  at  tørste  rutine,  er 
således  kodet,  mens  det  y, 
som  kommer  ud  at  2.  rutine, 
er  dekodet  igen. 

Strenge  at  enhver  længde 
kan  behandles,  programmet 
skulle  være  helt  problemløst 
(og  i  100%  BASIC).  Det  kan 
derfor  uden  større  problemer 
indlægges  i  eksisterende  pro¬ 
grammer.  □ 

Michael  Graversen 
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Multiaction 


^  PRINT  BT  12..7,  a=FIB  Bi<  I  ■  1 
5  PRINT  fiT  21  ,  O; 

^5^^^cnkeyT^^^™en  GOTO  6 
7  PRINT  RT  10/9;" 

FVT  12/  7.;" 

S  FOR  R  =  14-  TO  25 
9  PRINT  RT  19..R-1;" 

10  PRINT  RT  20/R-2;" 

11  se =0 

17  PRINT  RT  19 /R;  "JL" 

15  PRINT  RT  20..  R-l;  "ÆBh" 

19  NEXT  R 

£0  R=ø 

21  PRINT  RT  19/0; "SKUD  =  ";B 
32  H=INT  (RND*10:»  +  4- 

35  PRINT  RT  17/0; "SCORE  =  ";SC 
35  PR  LI  SE  20 
4.0  G=2 

50  PRINT  RT  H..  G;  “k  " 

5ø  PRUSE  3 

70  PRINT  RT  M..G;"  " 

75  IF  INKEY$="U"  THEN  GOTO  500 
30  G  =G  +  1 

3ø  IF  G =30  THEN  GOTO  22 
00  GOTO  50 
00  R=R+1 

02  FOR  K  =  10  TQ  15 
04-  SOUNE>  K  /  50 
05  NEXT  K 

iø  b=is 

16  PRINT  RT  H/G-l;'*  " 

17  PRINT  RT  H/G; "k" 

2ø  PRINT  RT  B..26;  "S” 

22  PRUSE  1 

25  PRINT  RT  B..26;"  " 

4-5  PRUSE  3 


Forestil  dig,  at  du  sidder  i  ver¬ 
dens  største  kampvogn  med 
en  ammunition  pd  kun  19 
skud.  Med  de  id  skud  skal  du 
forsvare  dig  mod  de  fjendtli¬ 
ge  rumskibe. 

Rumskibene  flyver  i  forskelli¬ 
ge  højder,  og  pointfordelin¬ 
gen  er  ogsd  sat  derefter.  Det 
drejer  sig  med  andre  ord  om 
at  nedskyde  rumskibene  i 
den  største  højde,  det  er  mu- 

k  |^k  «ot 

V  ■  ■  Din  kanon  affyres  ved  at  an- 

Æ  I  I  vende  et  joystick  eller  trykke 

W  IB  pd  U-tasten.D 

Claus  Evers  Christensen 

B  =B  —  1 
G  =G  + 1 

IF  B  < 1  THEN  LET  B=1 
PRINT  RT  H..2S,;" 

IF  G >29  THEN  GOTO  21 
IF  PEEK  B=PEEK  H  hND  PEEK  G 
K  26  THEN  GOTO  1000 
IF  R  <  20  THEN  GOTO  516 
GOTO  114-0 

PRINT  RT  H-fL/G-l;  "*** 


1070  FRST 

løSø  FOR  X  =20  TO  4-0 
1090  SOUND  X/lØø 
1100  NEXT  X 
1110  3LOU 

1120  LET  SC =50+20 -H 
1122  PRINT  RT  17..  0;  “SCORE 
1125  PRINT  RT  19..0;"SKUD 
1130  IF  R  < 2ø  THEN  GOTO  22 
1140  PRINT  RT  11.10.  "MHIBH 
1150  PRUSE  250 
1160  CLS 
1170  GOTO  1 

1300  SRUE  "SKYD  FJENDES" 
1310  RUN 
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House  Delender 

Når  du  har  startet  program-  skyde  den  ned,  inden  den  Etter  10  nedskydninger  har 
met,  der  passer  til  en  VIC-20,  når  frem  til  din  egen  kanon  du  vundet  spillet.  SHIFT  tunge- 
kommer  en  lille  UFO  flyvende  eller  tør  den  får  skudt  dit  hus  rersom  »skyd*. 
hen  over  skærmen.  Du  skal  helt  i  grus.  Jesper  Udby 

0  PRINT":!" :  FQRT»38400T038400+506 :  POKET >  0 :  NEXT :  AW=INT<RND<  1  )#6  >+3  _ C***"" 

1  P0KE36879  ; PEEK  <  36879 )  AND247  '' 

10PpRINT*W0MraH«  _ _ 

20  print"  «#  «’  æ  »  a'æ  n  n  3L";  \ 

24  PRINT"  «  1  »HH«  »8a  Mm", 

28  print;;  %  m  »mim  n  m  Mm";  \ 

36  IFPEEK<653)*lflND3-øTHEN003UBløøø^^I#ff 
4ø  I  fIs-øTHENGOSUB  1 0 1  ø  ^  SS=  1 : 00T036 

41  I FS-ØTHENFORXX- 1 T06 : 00SUB20000 : NEXT  V  WMw  W/77T\'^’\ 

46  ^OKILjei^IFL^BTJHENBS-1  = 

løøøJS=i^P0KE8ø2ø,  160 :  X»8ø2ø :  G0SUB32000  : RETURN  /'^*^**  aUJ^ 

1øø3  POKEX  >  32 ;  X*X-22  •'  I  FX<7680THENX*8020 :  S**0 :  RETURN  /'HCT 

løø4  I FPEEK  <  X  >  *6 1 THENG0SUB60 1 0  =  GOSUB 1 0000 :  G0SUB2000 :  RETURN 

løø6  POKEX/  46 :  NEXT  fl  . 

1008  RETURN  4  Wl  \||U 

lølø  LX*=RND<1)#6 

1012  L»768ø+LX*22+44 : LL-L+22 

1014  LX-RNDU  >#200+100 

1016  LX»RND<1>#15:BT»L+LX-1 

1017  I FWQXA W= I NT  <  WQX A W  > ANDWQOØTHENBT »7883  i L*7878 : LL-7891 : RW“flW-INT <RND< 1 >#2) 

1018  POKEL^  160:  RETURN  m  .m 

2000  W*W+1  :PRINT"«"W;WQ:SS=ø:S*ø:B3»ø:  IFW«10THENPRINT"DU  VANDT"  :  G0T02006  W  m 

2001  POKEX- 1 > 32 : POKEX/ 32 : P0KEX+1 /  32 : POKEL/  32 1 POKEBT , 32  I  \#  If  - 

2øø2  POKEX- 1  /  32 :  POKEX  >  32 :  P0KEX+ 1  /  32 :  POKEL ,  32 1  POKEBT  /  32  I 

2004  RETURN  I 

2006  I FWGD20THENPR I  NT "  MEN  DINE  HUSE  ER  UBRU-GELIGE"  ■ 

2øø8  END 

3øøø  POKEBT ,  32 :  BT=BT +23 : 1  FPEEK  <  BT  > 032ANDPEEK  <  BT  >  O46THENG0SUB6000 

3001  I  FXW=>  1 THENGOSUB 1  øøøø :  G0SUB4000 :  XW=ø :  RETURN  ^ 

3øø2  IFBT>8183THENBS»0: RETURN  , 

3øø4  POKEBT ,  35 : RETURN  L 

4000  WQ“WQ+1 :  B3=ø  ’■  POKEBT  >  32 :  PRINT"H"W;  WQ :  IFWQ*30THENEND  // 

4øø2  RETURN  - _ _ 

6øøø  I FPEEK  <  BT  >  =  1 020RPEEK < BT > - 1  @4THENXW=  1 :  POKEBT >  86 :  RETURN  te! _ ■  '  ~  J 

6002  I FPEEK  <  BT  >  =35THENRETURN 

6004  GOSUB  1  øøøø :  P0KE36879  >  PEEK<  36879  >  0R8 :  GOSUB  1  øøøø :  P0KE36879 / PEEK  <  36879  >  AND247 
6øø6  GQSUB4000 : PR I NT " DU  HAR  TABT. " : PRINT"DIN  KANON  ER  ØDELAGT!!" 

6009  END 

6ø 1 ø  POKEX- 1 , 1 6ø : POKEX / 1 6ø : P0KEX+ 1 . 1 60 : I FBS= 1 THENPOKEBT , 87 

6012  RETURN 

løøøø  REM  EXPLOSION 

10003  P0KE36877/ 130 

1 0006  F0RLQ= 1 5T00STEP- . 8 : P0KE36878 , LQ : FORMQ* 1 TO 1 50  =  NEXTMQ / LQ 
løøø9  P0KE36877 / ø : P0KE36878 , ø : RETURN 
20000  G0T021000 
21000  RETURN 

3øøøø  XW«XW+1 :  I  FXW/3®  I  NT  <  XWX3  >  THENP0KE36876 /  20ø  =  P0KE36378/ 15  =  F0RTV=1T09  ■’  NEXT  =  POK 

E36876/0 

31000  RETURN 

32000  P0KE36876/ 190 : POKELS/ 15 : F0RET=1T010 : NEXT : P0KE36876/ ø : RETURN 
33øøø  P0KE36876 , 22ø : P0KE36878 , 1 5  =  FORET* 1 TO 1 3 ; NEXT : P0KE36876 » ø : RETURN 
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IBM-Days 


Programmet  er  selvforklarende 


REM  TEST  GYLDIG  DATO  -  linje  120-160  kan  benyttes  til  test  af  indtastning 
REM 

GQSUB  400 

I  NPUT  "  I NDT  AST  DATO  ,  MANED  ,  AR "  ;  DD%  ,  MM7. ,  YYK 
PRINT  DDK 
GOSUB  490 

PRINT  DDK : GOTO  130 

'  Check  at  korrekt  antal  dage  i  måneden 

’  Programmet  tager  højde  for  skudår,  også  at  der  kun  er  skudår  ved 
'  århundredskift,  når  årstallet  er  deleligt  med  fire  hundrede. 

’  Rutinen  kræver  at: 

YYK  indeholder  årstal  -  t.eks.  1984 
’  MMK  Indeholder  måned  -  t.eks.  12 

DDK  indeholder  dato  -  t.eks.  31 

'  Rutinen  kaldes  som  subroutine,  og  returnerer  værdien  -1,  hvis  datoen 
'  i  den  specificerede  måned  er  ulovlig  (evt.  kun  det  pågældende  år). 

’  Routinen  kender  kun  den  Gregor ianske  kalender,  der  er  gyldig  fra 
'  15.  oktober  1582.  Datoen  -  variablen  DDK  -  returneres  som  -1,  hvis  en 
’  tidligere  dato  specificeres. 


380  ’  Placeres  tidligt  i  programmet: 

390  ’ 

400  DEF  FN  GYLDIG=31+< <MMK=4)0R(MMK=6)0R(MMK=9)0R(MMK=1 1 ) )-<MMK=2)*< (0=<YYK  MOD 
100) )-(0=< YYK  MOD  4>>-<0=<YYK  MOD  400>)-3> 

410  1 

420  ’  Bemærk  anvendelsen  af  sammenligninger  og  relationer!  Er  en  betingelse 
430  '  opfyldt  returneres  værdien  *  —  1  *  ellers  værdien  ’0'  (nul)l 
440  ’ 

450  ’  Det  følgende  er  den  egentlige  subroutine,  som  kan  placeres  frit  i  et 
460  ’  program.  Placeres  subrutiner  og  funktioner  tidligt  i  programmet,  sikres 
470  '  maksimal  arbejdshastighed! 

480  ' 

490  IF  YYK< 1583  THEN  GOSUB  530 

500  IF  DDK  1  OR  <DDK>FN  GYLDIG)  THEN  DDK=-1 

510  IF  MMK1  OR  MMK>12  THEN  DDK=-1 

520  RETURN 

530  IF  YYK  1582  OR  MMK10  THEN  560 

540  IF  MMK> 10  THEN  RETURN 

550  IF  DDK) 14  THEN  RETURN 

560  DDK=-1 

570  RETURN  520 

580  ’ 

590  '  Bemærk  brugen  af  den  specielle  RETURN  520  kommando,  som 
600  '  1  realiteten  svarer  til  en  GOTO  520,  blot  med  den  forskel, 

610  '  at  RETUR-adressen  fjernes  fra  computerens  STACK.  BT 
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Kanal  Plus  2 


Det  vrimler  nu  med  lokale  tv- 
stationer  og  mange  sparer 
penge  ved  at  lave  deres  an¬ 
tenner  selv. 

Med  dette  Spectrum-program 
kan  du  nu  selv  beregne  din 
antenne. 

Jan  H.  Rasmussen 


1  !  l/.'SN 


I  UT  "Antal  elementer  " Je I 
el <4  OR  e l> 10  THEN  GO  TO  80 
INT  ,  ,"Je9  uael9er  "i  FLASH  1 ;e 


T  d ( 1 )=( 145/(rq*10øø)-(725ø/ Irql 
R  n=2  TO  el-2 

T  dtn  3=d  Cn-1 )-CdCn-l 3'løø*53 


270  NEXT  n 

275  LET  lsum*INT  Ctt403 

300  REM - 

30]  REtl  UOSKRIFT  PAA  SKAERMEN 

302  REO - - 

305  CLS 

310  PRINT  AT  0,3i"UHF-UHF  ANTENNE  BEREG 
N1NG" 


:  ORAUI  0,22 

390  PLOT  83,117:  ORAUI  0 
:  ORAUI  0,22 

395  PLOT  99,118:  DRAUI  0 
8:  DRAUI  0,20 
400  PLOT  115,118:  DRAUI  I 
18:  DRAUJ  0,20 
405  PLOT  132,119:  DRAUI  I 
19:  DRAUI  0,18 
410  PLOT  149,120:  DRAUI  I 
20:  DRAUI  0,16 
420  PRINT  AT  2,3;"Reflel 
425  PLOT  23,152:  DRAUI  - 
430  PRINT  AT  3, 10;"0irel 
440  PRINT  AT  8,Si"DlPol 


445  PLOT  39,108:  DRAUI  -13,5 
450  PRINT  AT  5,21i'Tlod  sender" 

455  PLOT  168,124:  DRAUI  80,0 

458  PLOT  246,126:  DRAUI  2,-2:  ORAUI  -2,-2 

460  PRINT  AT  2, 22 ;"Houedbom" 

470  PLOT  175,152:  DRAUI  -21,-24 

500  PRINT  INUERSE  1  ;AT  9,0 j"Antennen  s 


3  NEXT  n 
3  FOR  n-4  TO  6 
5  PRINT  AT  14»n , 
T  aln) 

3  NEXT  n 


3  NEXT  n 

3  PRINT  INUERSE  HAT  21,Øi"TAST  FOR 
T-l  NT  ANT.-2  SAUE=3" 

3  INPUT  s 

3  IF  8=1  THEN  COPY 


3  INPUT  "Kanal  "luk 
3  IF  uk  <2 1  OR  uk>69  THEN  GO  TO  1020 
3  LET  lrq=C(uk-211*8)»472 
3  RETURN 

3  PRINT  , , "Du  har  ualgt  en  UHF  anten- 

3  PRINT  , , "Hvad  (or  en  TU  kanal  skal 
bruges  t I  I  (2-123” 

3  INPUT  "Kanal  "luk 
3  IF  uk=2  OR  uk=3  OR  uk=4  THEN  LET  ' 
[Cuk-2)*73r49:  RETURN 
3  IF  uk  <5  OR  uk> 12  THEN  GO  TO  2020 
5  LET  (r<i=CCuk-53*7)*176 
3  RETURN 

3  SAUE  "ANTENNE"  LINE  1 
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Happy  Days 


Hvor  mange  dage  har  du  le¬ 
vet,  og  hvilken  dag  blev  du 
egentlig  tødt?  Alt  dette  og  ik¬ 
ke  mere,  ertarer  du  ved 
hjælp  at  dette  lille  Vic-20 
program. 

Niels-Jørgen  Bertelsen 


30  PR I NT" PROGRAMMET  BEREGNER  HVOR  MANGE  BAGE  BU  HARLEVET, 
35  PR I NT "BU  ER  FØBT  PAA. “ 

4ø  PRINT 

45  INPUT"BATO(NU)  ";A 
5ø  IFA<1THENPRINT"'HIIIIIIIIU"  •  GO T 04 5 
55  INPUT“MAANEB(NU>  " , B 
60  IFBdTHENPRINT"milllllHIII"  : G0T055 
65  INPUT ”AAR<NU)  ",C 

70  IFC<lTHENPRINT"THlMM«™i"  G0T065 
75  PRINT : I NPUT " UGEBAG < NU >:“;U* 

80  I FU* = “  "  THENPR I  NT  “  I1IIIIIHIIII  G0T075 

85  PRINT: INPUT"F. BATO  :  ",B 

90  I  FB<  1  THENPR  I  NT  "  THNMINHI" :  G0T085 

95  INPUT"F.MAANEB  ";E  _ 

100  IFE<lTHENPRINT"TimiHHHI"  G0T095  - 

105  INPUT"F. AAR  ",F  / 

110  I  FF<  1  THENPR  I  NT  "  T1IIIIHHIII"  : GOTO 1 05 
115  I FU*= "  MANBAG “  THENU=  1 
120  IFU*=" TIRSBAG" THENU=2 

125  I  FU*="  ONSBAG  "THENU=*.  fe . .  •'  ~ 

130  I  FU*= "TORSBAG " THENU=S  T CIT  ~  - 

135  I FU*= "  FREBAG  "  THENU=5 
140  I FU*= " LøRBAG " THENU=6 

145  I FU»=" SØNBAG "THENU=7 

146  IFCCF  OR  (C=F  ANB  BOE  ANB  A<»D  > THENPR INT " TTimiNIIIH 

147  G=E  . 

150  IFC=FTHEN4ø5 
155  G0SUB375 
16ø  VB=I-B 
165  IFE=12THEN190 
170  F0RG=E+1T012 
175  G0SUB375 
18ø  YB=VB+I 
185  NEXT 

1 90  YB=VB+ < < C-F- 1 > *365  >  + 1 NT <  <  C-F  > /4  > 

195  IFB=lTHEN22ø 
2øø  F0RG=1T0B-1 
205  G0SUB375 
21ø  YB-YB+I 


5  NEXTG 
:0  VB=VB+A 

:5  I  FF/40  INT  (  F/4 )  ANBE<3THENVB=YB- 1 
10  IFF/4=INT<F/4>ANBE>2THEN  VB=VB-1 
5  PRINT 

0  I FVB=1 THENPR I NT "LEVET  I  "VB"  BAG. " : G0T0260 
5  PR I NT “LEVET  I  "VD"  BAGE." 

;ø  IFVB/7-INT<VB/7>THEN29ø 
;5  YB=YB-<  INT <YB/7>#7)  T  . 

'0  FOR J =VBTO 1  STEP- 1  I  \#l^ 

10  IFU<1THENU=7  I  OtTS 

15  NEXTJ  ft  . 

|0  I FU=1THENG*=" MANBAG" 

'5  IFO=2THENG*=-"-TIRSBAG"  i  i  ~  i 

10  IFU=3THENQt="0NSBAG"  M 

15  I FU=4THENQ*= " TORSBAG"  Pv\Y*UUrøul  0  I 

ø  I FU=5THENQ* =  "FREBAG “  Sa&YXWtXlWfå'tM  M  ■ 

5  IFU=6THEN0*="LØRBAG"  I  f  _  - 1  1 

:ø  IFU=7THENG*="SøNBhG"  I:  .1 

:5  PRINT 

lø  PR  I  NT  "FØBT  PAA  EN  "QJ".  " 

15  PRINT 

lø  PR  I  NT  "RUN/STOP  <R/S>" 

15  GETR*: IFR*=""THEN345 

>6  IFR*0"R"THEHPRINT",T  ENB 

iø  B=ø : E=0 : F=ø : YB=0  PRINT "3" : G0T085 

’5  I FG= 1 ORG=30RG*50RG=70RG=80RG= 1 00RG= 1 2THEN I =3 1 

(ø  I FG=40RG=60RG=90RG= 1 1  THEN I =30 

(5  IFG=2THENI=28 

»ø  I FF/4= I NT ( F/4 ) ANBG=2THEN 1=29 

>5  I FC/4= I NT  C  C/4  >  ANBG=2THEN I =29 

iø  RETURN 

)5  G=E : G0SUB375 

,ø  I FB=ETHENVB=A-B 

15  IFB*E+1THENVB=<  I-B)-*-A 

= I -B : FGRG=E+ 1 TOB- 1 : 00SUB375 : VB=VB+ I : NEXT : YB=YB+A 


Electric  ^ 
Marathon 


Har  du  en  Marathon,  Power 
eller  Lambda  kan  dette  pro¬ 
gram  lave  en  række  elektro¬ 
niske  beregninger.  Blandt  an¬ 
det  kan  du  indtaste  bare  to  at 
følgende  oplysninger:  Spæn¬ 
ding,  strøm,  modstand  og  ef¬ 
fekt ,  hvorefter  programmet 
foretager  udregningen  af  de 
to  manglende. 

Hvis  linierne  fra  10  til  23,  fra 
490  til  760,  og  linie  135  ude¬ 
lades,  kan  programmet  nøjes 
med  bare  2  K  RAM.D 

Zb  Secher 
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BLER 


Her  er  en  hjælp  til  alle  dem, 
der  taster  maskinkodepro¬ 
grammer  ind.  Tit  er  disse 
nemlig  kun  otientliggjort  som 
fuldstændigt  uforståelige 
rækker  af  tal.  Med  dette  pro¬ 
gram  har  du  mulighed  for  at 
få  listet  maskinkoden  ud  på 
en  mere  forståelig  måde: 
SomZ80assemblersprog.  | 
Hvis  du,  kærer  læser,  er  ved 
at  stå  af  her  kan  vi  oplyse,  at 
der  findes  udmærkede  bøger  I 
om  Z80  maskinkode  både  på 
engelsk  og  efterhånden  også 
på  dansk,  som  skulle  kunne 
forklare  maskinkodepro¬ 
grammering  i  detaljer. 
Indtastningen  af  disassemble- 1 
ren  skulle  ikke  volde  nogen 
vanskeligheder.  Derimodl 
skal  man  være  opmærksom 
på,  at  den  maskinkode,  som 
skal  disassembles,  ikke  kan 
ligge  hvorsomhelst,  fordi  dis- 1 
assembler  og  kassettebuffer 
også  fylder  op  i  RAM.  Hvis! 
man  derfor  sætter  HMEM 
(med  MEMORY-instruktionen) 
til  mindst  adresse  1 0899  og  så 
holder  sin  maskinkode  over 
denne  adresse,  vil  der  ikke 
opstå  problemer. 

Under  kørslen  disassembles 
samtlige  anerkendte  Z80-ko- 
der  (også  dem  med  ED,  BC  og 
indexregistrene)  til  standard 
Z80-mnemonics  (dog  undta¬ 
gen  OUTI  og  OUTD  som  disas- 
sembleren  oversætter  til  OTI 
henholdsvis  OTD).  Udover  in¬ 
struktionen  udskrives  også 
adressen  og  de  bytes,  instruk- ' 
tionen  er  opbygget  af.  Da  alt  I 
disassembles,  såvel  program 
som  data.  får  man  derved  en 
mulighed  for  at  skelne  in¬ 
struktioner  og  data  fra  hinan¬ 
den.  Hvis  en  udskreven  in¬ 
struktion  indeholder  '?'  eller 
er  over  4  bytes  lang,  er  det  en 
'ulovlig'  instruktion,  dvs. 
sandsynligvis  data.  der  disas¬ 
sembles. 

Hvis  man  under  disassemb- 
lingen  ønsker  at  indtaste  nye  ! 
start-/slutadresser  skal  man  I 
blot  nedtrykke  spacebar'en, 
og  har  man  en  printer,  er  der 
også  mulighed  for  at  bruge 
den. 


+++++++fl- 

+^+++++ii-  f- 


-+++ 


Med  Vie-Grafik  kan  du  i  høj¬ 
opløsningsgrafik  få  diagram¬ 
mer  over  f  .eks.  salgstal  i  et  år. 
olieregninger, 

Benzinpriser  eller  hvad  du  nu 
kan  finde  på.  Det  selvforkla¬ 
rende  program  er  nemt  at  be¬ 
tjene  og  kører  på  en  stan- 
dard-VIC-20. 

Bjarne  Knudsen 


Bill 
■11 


lø  DATA  ø,ø,ø, ø,ø> 0.0*255 
2ø  DRTfl  ø,ø,ø,ø,ø,ø,255,255 
3ø  DATA  0,0,0,0,0,255,255,255 
4ø  DATA  ø,ø,ø,ø,255, 255 , 255 , 255 
5ø  DATA  ø , ø , ø , 255 , 255 , 255 , 255 , 255 
6ø  DATA  0,0,255,255,255,255,255,255 
7ø  DATA  ø , 255 , 255 , 255 , 255 , 255 , 255 , 255 
8ø  DATA  255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 
9ø  P0KE36879 , 8 : P0KE36869 , 255 

1 øø  F0RF=7 1 68T07 1 67+ < 8*8  > : RE ADA : I Ffl>øTHENA=fl- 1 28 
105  POKEF , A : NEXT 
llø  PR I NT "3" 

1 20  FORF *7 1 68+2567 '07 1 68+263 : POKEF , ø : NEXT 
1 3ø  PRINT" 43HV0R  MANGE  MAANE OER  < 1 - 1 2 > " : I NPU T " 3" i  X 

14ø  DIM  A(X) 

15ø  PR I NT "3" 

16ø  F0RF=1T0X 

1 7ø  PR I NT " SHAANED " i F , " MAX  1 7ø " 

18ø  INPUT" S"  i  V : A(F)=V 
190  NEXT 
2øø  PR I NT "3" 

210  PR  I  NT "  WWWM)^^  F  MAMJ  J  ASOND« 

215  R=1 

22ø  F0RF=8 1 47T08 1 46+X 

23ø  Q=F : W=ø : 0=1 

24ø  POKEQ , W • I F0=A < R > THEN400 

25ø  W=W+1 : IFW=8THENQ=Q-22-W=ø 

255  0=0+1 

26ø  G0T0240 

4øø  R=R+1 : NEXT 

41ø  PRINT "iSiSNYT  DIAGRAM  TAST  'Fl''«", 

42ø  GETA$: IFA$="B"THENRUN 

43ø  F0RP= 1 T04øø ; NEXT 

44ø  PRINT "NVT  DIAGRAM  TAST  " 

445  GETA$ : I FA$= " THENRUN 
45ø  F0RP= 1 T0400 : NEXT 
46ø  G0T0410 
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Cosmic 


Du  befinder  dig  i  en  firkantet 
rumstation,  som  kan  skyde  i  8 
retninger. 

Du  bliver  angrebet  af  UFO 'er 
fra  kampstjernen  Changa. 
De  skal  selvfølgelig  skydes 
ned,  inden  de  ndr  din  rum¬ 
station.  Rammes  stationen  af 
en  UFO,  sprænges  den  i  luf¬ 
ten,  og  spillet  er  slut.  »Cosmic 
Changa«  er  selvforklarende 
og  bliver  sværere  med  tiden. 

Brian  Rasmussen 


0  PRINT".!"  •■i  \\  1 

1  F0RK=54272T054296:P0KEK,ø  »»  ■ \  il 

2  M=255 ;  L=129  V  \  . 

3  P0KE54285, 5  \ 

4  PGKE542 7?  *  1  ø :  P0KE54284  ,  1 1 

5  PRINT"KEYS"  : PRINT"2=VENSTRE  OP"  : PYlNT"X=VENSTRE"  : PRINT "C=VENSTRE  NED"  Xxgi 

6  PRINT" V=NED"  PRINT"M=OP"  PRINT", »HØJRE  NED " :  PR  I  NT  " .  =HØ  J  RE "  PRINT  "  /“HØJRE  0P"\ 

7  PRINT"flNY  KEY  TO  CONTINUE"  NA 

8  IFPEEKd97>=64THEN8  A 

lø  PRINT"!" : P0KE53280, ø : P0KE53281 , ø  \ 

2ø  fl=53248  \ 

30  POKEA+2 1  / 15  •  POKEfl+40  ,  1 :  POKEfl+39  •  7  ■  POKEfl+4 1 , 9 :  POKEfl+42 . 1  ' 

4ø  P0KE2040 ,  1 1  : P0KE204 1,13= P0KE2042 ,14: P0KE2043 , 1 5 

50  F0RK=ØT062 : REflDB : POKE 704+K , B : NEXT 

60  BATA128, 24, 1,96, 24, 6, 112, 60,14, 60,60,60. 30, 60, 120,31,126, 248, 15, 255,240 
70  DATH7 , 1 29 , 224 , 7 , 66 , 224 , 63 ■ 36 , 252 , 255 , 24 , 255 ,63,24, 252 ,7,36,224,7,66,224 
80  DRTA15, 255, 240, 31, 126,248,30,60, 120, 60, 60, 60, 1 12, 60, 14, 96, 24, 6, 128,24,1 
90  PQKEfl ,128; POKEA+ 1,128 
1 00  F0RK=øT04STEP3 : POKEK+832 , 24 : NEXT 
1 1 0  F0RK=ØT028 : REflDB : P0KE896+K , B : NEXT 

120  DflTHø, 60, ø,ø, 255,ø, 1, 195, 128,3, 129, 192,3, 129, 192-3, 129, 192,3, 129, 192 
130  DfiTFIl,  195,  128,0,255,0,0,60 
1 40  F0RK=øT062 : REflDB : POKEK+960 , B : NEXT 

150  DATA137, 17,34,0,0,0,36,  1 4<r. ,  72 ,ø,ø,ø.l3 7 , 85 , 36 , 32, ø, 8, 2, 186, 128, 136, 0, 36 
160  DATA36, ø, 136, 10,0, 160, 170,0, 170, 10, ø, 160, 34,0, 136, 136,0,34,2, 186, 128 
17ø  DATA32,ø,8, 137, 185,66,0,0,0,36, 136,72,0,0,0, 137. 17,36 
200  POKEA+39, 7 : P0KE54278 , 1 : P0KE54296 , 1 5 : P=- 1 : F= 1 : B=ø : 0=5 

300  POKEA+6, B : POKEfl+7 , C-5 

301  POKEA+41 , RNDC1 >*15+1 : PQKEfl+2, ø : P0KE54283, ø : P0KE54280, 2 : P0KE54283, 129 

302  IFP=0THEN0=0+10 :  F=F+.  5 :  1FF>13THENF=13 
305  P-P+l: PRINT"«" :PRINT8PC(31)"P0INT'P"  " 

3 1 ø  POKEfl+7 , ø : POKEfl+6 , ø : H= I NT  <  RND  < 1 ) *8 ) + 1  =  0NH00T0500 , 7øø , 7 1 0  - 72ø , 73ø , 74ø , 75ø , 760 
500  B=ø : C=6 : Z=F : X=F 

5 1 ø  Q=PEEK  < 1 97 ) : I F0= 1 2THENP0KE54276 , ø : P0KE54273 , M : P0KE54276 , L : GOTO 1 øøø 

520  I FQ=23THENP0KE542?6 , ø : P0KE54273, M : P0KE54276, L : G0TQ2000 

530  IFQ=2øTHENP0KE54276, 0 : P0KE54273, M : P0KE54276, L : GOI 03øøø 

540  I FQ=3 1 THENP0KE54276 , ø : P0KE54273 , M  =  P0KE54276 , L : G0T04088 

55ø  I FQ=36THENP0KE54276 , ø : P0KE54273, H : P0KE54276 , L : GOTOSøøø 

560  IFQ=47THENP0KE54276, ø : P0KE54273, M : P0KE54276, L : G0T06000 

570  I  FQ=44THENP0KE54276 ,  ø :  P0KE54273 ,  M :  P0KE54276 ,  L :  G0T07000 

580  I FQ=55THENP0KE54276 , 0 : P0KE54273 , N : P0KE54276 , L = GOTOSøøø 


520  I FQ=23THENPQKE542?  6 , ø : P0KE54273, M : P0KE54276, L : GOTO! 
530  IFQ=2øTHENP0KE54276, 0 : P0KE54273, M : P0KE54276, L : GOI 0! 
540  I FQ=3 1 THENP0KE54276 , ø : P0KE54273 , M : P0KE54276 , L : GOTO' 
55ø  I FQ=36THENP0KE54276 , ø : P0KE54273, H : P0KE54276 ,  L ; GOTO! 
560  I FQ=47THENP0KE54276 , ø : P0KE54273, M : P0KE54276, L : GOTO« 
570  I FQ=44THENP0KE54276 , ø : P0KE54273 , M : P0KE54276 ,  L : GOTO! 
58ø  I FQ=55THENP0KE54276 , ø : P0KE542 73 , N : P0KE54276 , L  =  GOTO! 
590  B=B+X :  C=C+Z  :  POKEfl+4 ,  B :  POK.Efl+5 , 0 
600  IFC+5>1 28ANDC- 1 5< 1 28ANDB+ 1 ø> 1 28HNDB- 1 ø< 1 28THEN9øøø 
610  G0T0510 


P0KE54276, L : GOTO 1 øøø 

G0T02000 

GOI 03øøø 

G0T04000 

GOTOSøøø 

G0T06000 

G0T07000 

GOTOSøøø 


720  0=255 : B= 1 28 : Z=-F : X=ø : GO  T05 1 ø 
730  0=255 : B=25ø  =  X=-F : Z=-F  =  G0T05 1 ø 
740  0=133 :  B=255 :  X=-F :  2=ø :  GOTOS’.ø 
750  0=8 : B=255 : X=-F : Z=F : G0T05 1 0 
76ø  B=128 : C=ø : X=ø : Z=F : G0T0510 

løøø  B=136 : F0RK= 1 30T040STEP-8 : 0=D-8 : POKEfl+7, D : POKEfl+3, K ; B=B+X : C=0+Z : POKEfl+4, B 
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Black  Jack  eller  2 1  hører  til  de 
populæreste  kortspil  over¬ 
hovedet.  Ved  hjælp  at  dette 
program  til  Commodore  64 
kan  du  optræne  dine  færdig¬ 
heder,  så  du  ikke  taber  næ¬ 
ste  gang,  du  udtordres  til  2 1 . 
Spillet  er  i  øvrigt  selvlorklaren- 
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9045  I  FAt=  "N ” THENRUN 

9046  I F  AtO  "  J" ORAf <>"N" THEN9043 
9050  RETURN 

10000  REM 

løøøl  REM  ************************** 

10002  REM  »BEREGN.  AF  RESTSK FIT  <KR)* 

10003  REM  ************************** 

10004  REM 

10020  IFSK=øTHENG0SUB70øø 

10030  RS=SK-BS 

10035  I FBf =" 7 " THENRETURN 

10037  PRINT "3"  =  P0KE53280, 2 :  P0KE53281 , 2  =  PRINT"51" 

10040  PRINT" WHBfiUWsTiTiTiT® ERE S  RESTSKAT:  ";RS;"  KR" 

10042  Pfftttyr**)8<WWMIBWIllliaHWWWWIiiM8ia!l8IBNStÆS  FLERE  BEREGNINGER  <.VN)“ 

10043  GETAf ' IFAf=" " THEN 10043 

10044  I FAf =" J " THEN4000 

10045  IFRf="N"THENRUN 

10046  I  F  AtO  ”  J  “  ORAf  O  "  N  "  THEN  1 0043 
10050  RETURN 

11000  REM 

11001  REM  **************************** 

11002  REM  »RESTSKAT  V.  RF  KORREKT  SKAT* 

11003  REM  **************************** 

11004  REM 

11020  IFRS=ØTHENGOSUB 10020 
11030  RP= I NT  ?  ABS  ?  RS  >  * 1 OØKBS  > 

11035  PRINT  "3"  :  P0KE53280 , 2 :  P0KE5328 1  >  2 :  PR  I  HT "  Hl" 

11040  PRINT" HMBBKKIsTsREST SKRT  I  ??  RF  KORREKT  SKOT :  " ;  RF' ;  "  ??" 

11042  PRINT " WHBWBWBrøHrøtWroTiTiTsTiTjrøNSKES  FLERE  BEREGNINGER  ?I/N>" 

11043  GETAf ' I FAt= " “ THEN 11043 

11044  IFR*= 11 J  "  THEN4000 

11045  I Ffl*= " N " THENRUN 

11046  I FAf  O  "  J "ORRJO  "N  "  THEN  1 1043 
11050  RETURN 

12000  REM 

12øøl  REM  ************************** 

12002  PEM  *DEL  RF  SKATTEBEREGNINGEN* 

12003  REM  ************************** 

12004  PEM 

12005  S5=3I*<SG/10ø> 

12010  RETURN 

12400  S6=Sl*<SG,-'løø > 

12410  S5=<SI-S1)*?SL/100>+S6 

12420  RETURN 

12800  S6=S1*<SG/100> 

12810  S7«<S2-S1)*<SL/100> 

12820  S8=S6+S7 

12830  S5=(SI-S2>*<SF/løø)+S8 

12840  RETURN 

13000  REM 

13001  REM  ************************ 

13002  REM  ****EBITERINGSRUTINE**** 

13003  REM  ************************ 

13004  REM 
13ølø  G0SUB21000 
13015  PRINT "3" 

i3ø2ø  iitFVT"mmmmmmMMmmuwrri$r  nr.*;r 

13021  I  FA=  1 THENPR I  NT  "  TiTiTiTiTiTiTiTiTiTiTil  KOMMUNESKAT?;  “ 

13022  I  Ffl=2THENPR  I  NT  ”  "TiTiTiTiTiTiTiTiTiTiTil  KIRKESKAT?: 

13023  I F  A=3THENPP  I  NT  "  TiLTiTiTiTiTiTiTiTiTil  AMTSSKAT?? 

13024  I F  A=4THENPR  I  HT  "  'TiTiTiTiTiTiTiTiTiTiM  PERSONFRADRAG  " 

13025  IFA"5THENPRINT""KKIgfcTSraSIBKKTa! .  SKATTEGRAENSE  ????■  " 

13026  I  FA=6THENPR  I  NT "  nsTSTSTSTSTiTSTjTiTSTSE .  SKATTEGRAENSE  ???>  " 

13027  I FA-7THENPR 1  NT  "  TiLT.TATiTiW.T^tS .  SKATTEGRAENSE  (?.'>  ” 

13028  I FA=8THENPRI NT " ITitiWsfjlstiTsTsTiU .  SKATTEGRAENSE  ?KR>  " 

13029  I F  A=9THENPR  I  NT  "  "KTiTsTiTSTSKTiVTSt? .  SKATTEGRAENSE  <KR>  " 

13030  I  FA=  1 ØTHENPR I  NT  "  "TiTiTiTiTiTiTiTiTitiTil  PENSIONSFONDS?-: 

13031  I FA= 1 1 THENPR I NT "  "WLWjTiTiLWiTiT.I  STATSSKATTE??  " 

13032  I  FA= 1 2THENPR I  NT  "  'TsTiTiTsTiTiTiTiTiTjTÆ.KAT  TEPLG .  INDKOMST  " 

13033  I F  A= 1 3THENPR I  NT  "  TLTiMSKTTTSWJU  A- 1  UDKOMST  " 

13034  I  FA= 1 4THENPR I  NT  "  'TiTiTlTiTiTiTiTiTiTiTil  BETALT  SKAT 

13035  INPUT"MSTSIiTSTSTST3TiTi1IHDTAST  NV  VAERD!  ";B 
13G40  IFA=ITHENKS=B 

13050  IFA=2THENCS=B 
13060  IFR=3THENAS-B 
13070  IFA=4THENPF=B 
13080  IFA=5THENSG=B 
13090  IFA=6THENSL=B 
131øø  IFA=7THEHSF=B 
13118  IFA=8THENS1=B 
13120  I FA=9THENS2=B 
13130  I FA= 1 ØTHENPS=B 
13140  IFR=11THENS=B 
13150  IFA=12THENSI=B 
13168  IFA=13THENAI=B 
13170  IFA=14THENBS=B 

13180  PRINT" J!BWWW!W>WiT;TiTiTi®l ISKES  FLERE  ÆNDRINGER  '.'TO" 

13190  QETBf IFBt=""THEN13190 
13200  I  FBf = "  "  THEH 13000 
13210  I FBf = " N " THEN4000 
1 3220  IFBf  O"  J  ”  ORBf  O  "  N  “  THEN  1 3 1 90 
13230  RETURN 

21000  REM 

21001  REM  ************:*************** 

21002  REM  *********L  ISTE  VALG********'* 

21003  PEM  ****** »  *»»**»*»»***  :*  *  *  *  *  *  *  » 

21004  REM 

21øø5  PRINT " r?"  :  P0KE53280 , 6 :  P0KE5328 1  .•  6 :  PR  I  NT  "  a" 

21009  PRINT" MSWMBtøltørøiTStJNSKES  EN  LISTE  ØVER  TALLENE  FOR  DE" 

21010  PRINT " WiT;T:T;T;ll HDTASTEDE  POSTER 
2 1 020  GETAf :TFAf=” " THEN2 1 020 
21030  I FRt= " J " THEN00SUB22000 
21040  I  FØJ  =."  N  "  THEN  1 30 15 

2 1 043  I F  AtO  "  J  "  ORAf  O  "  N  "  THEN2 1 020 
21045  RETURN 
22000  REM 


22001  REM  ***************************  - 

22002  REM  ***********L I STE*********** 

22003  REM  ***************************  C  1Q 

22004  REM 

22005  PRINT"?]"  ■  P0KE53280;  6  P0KE53281  ■  6 '  PRINT"  a"  - 

22010  PRINT" WtørøiTiTiTiWiTiTill .  KOMMUNESKAT" 

22020  PRINT" 'iIjT:TiTiT;TiT:C .  KIRKESKAT" 

22030  PRINT"tfSTi?iTjT=?=Tit3.  AMTSSKAT" 

22040  PR  I  NT "  '.TiTiTitiTiTiTiH .  PERSONFRADRAG"  _ 

22050  PRINT” .  1.  SKATTEGRAENSE  ???>" 

22060  PRINT" LTiTiTiTlTiTiTil? .  2.  SKATTEGRAENSE  <?!>" 

22070  PRINT" IliTiliTiTiTitil? .  3.  SKATTEGRAENSE  <7.)" 

22080  PR  I  NT "  liTiT;T;T;T:TiTit3 .  1.  SKATTEGRAENSE  <KR)“ 


22 


?090  PRINT" 'iTiTiTitiTsTiTit? 

00  PR  I  NT  "  ';TiT:TiT;Ti?ill  ø . 

18  PRINT,M=TåT=TiT=Ta?=U  1 . 

20  PRINT " 'STiTsTiTiTiTill 2 . 

30  PRINT" 'iTirøsrøsTiU 3 . 

4ø  PRiNT"aaaaarasii4.  betalt  skat' 
50  PRINT" W;tSTiT;TiT;T;TiTiTiTiTT AST  F3 


2.  SKATTEGRAENSE  <KR>" 
SAMLET  PENSIONSFONDS??" 
STATSSKATTE??" 
SKATTEPLG.  INDKOMST" 
INDKOMST" 


3  GETAf - IFAt=" " THEN22 1 
22170  IFAf="B"THEN13015 
22175  I F A$<> " 9" THEN22 1 60 
22180  RETURN 
23000  PEM 

23010  REM  *********♦♦♦♦♦ 

23020  REM  *INTRØBILLEDE* 

23030  REM  ************** 

23040  PEM 

23050  PR  I  NT  “?]"  -  P0KE53280 , 6 :  P0KE5328 1 , 6  ■  PR  I  UT "  1" 

23060  PRINT"************ ************************* 

23061  PRINT"* 

23062  PRINT"* 

23063  PRINT"* 

23064  PRINT"* 

23065  PRINT"# 

23066  PRINT"# 

23067  PRINT"* 

23068  PRINT"* 

23069  PRINT"* 

23070  PRINT"* 

23071  PRINT"# 

23072  PRINT"* 

23073  PRIMT"# 

23074  PRINT"* 

23075  PRINT"* 

23080  PR  INT "  ********  ***************  #****++*+'*'***** " 

23100  PRINT" 'TTTTTTTTTTTTTTiTiMiTsTiMiVsTiW'***# * *# ♦♦♦♦♦♦♦' 

23101  PRINT"  yjWiTiTsTiTsTiTitåWSK  ATTEPROGRAM#  " 

23102  PRINT" ITsTiTsTiTsTiTiTsT^Ll* *»##♦♦♦♦*♦*♦*»" 

23110  PRINT “ WBWiTiWiTiTiHF  CARSTEN  ANDERSEN  1984." 
23120  PPINT  "  WLT;T;T.T;T;T;T.T;T;LLVl  F'  T I  SAN  DATA." 

23130  PRINT" *WrølJflSW:TiTiMiT;T;IiTiTiTiT;TiTiT:?.-W TASTS " 

23 1 50  GETAf  I FAf = " " THEN23 1 50 
24000  REM 

24010  PEM  ♦♦♦*♦♦****** 

24020  REM  #INTROTEKST* 

24030  REM  *♦**##*****♦ 

24040  REM 
24050  PRINT"?]” 

24060  PRINT". WWWiFLG.  FAKTORER  BøP  KENDES  INDEN  START : 
24070  PPI  NT"';]#****#*#************  ♦♦♦♦**♦*♦*♦  *♦***" 
24080  PRINT" KrøsTSTiffSTsTiTsTill .  KOMMUNESKAT" 

24090  PRINT" STitiTiTiTirøit?.' .  KIRKESKAT" 

24100  PRINT" 'STiTSTiTifsTSTiC! .  AMTSSKAT" 

. .  PERSONFRADRAG" 

1 .  SKATTEGRAENSE  <??>" 

2.  SKATTEGRAENSE  <??>" 

3.  SKATTEGRAENSE???)" 

1.  SKATTEGRAENSE? KR >" 

2 . SKATTEGRAENSE  ?  KR ) " 

SAMLET  PENSIONSFONDS??” 
STATSSKATTE??" 

SKATTEPLG. INDKOMST" 

A- INDKOMST" 

BETALT  SKAT" 


24110  PPINT" 'SHTSTSTiWiTiVI . 

24120  PRINT",iTiTiTiT:T:T;Til3. 

24130  PRINT " LTiLTiLTiT.T.V . 

24140  PRINT" 'iTiTiTiTiTiTiTiT? . 

24150  PR  I  NT  "  'sT=T;TsTiTiTiTiT3 . 

24 160  print " -agmmuse . 

24170  PR  I  NT  "  WSKWjTaTSIl  ø . 

24180  PRINT" 'iTitiTiTiTiTi"  1 ! . 

24190  PRINT" 'sWiTiTsTiTill 2 . 

242øø  print" 'gamma s . 

24210  PRINT" 'STSKTSTSTSWl 4 . 

24240  PRINT" WiTiTiTiTiTitiTiTsTiTiTiTiTiTiTiW TAST A " 

24250  GETAf IFAf=""THEN24250 
24270  REM 

24280  REM  ************* 

24290  REM  * I NFORMAT I ON* 

24300  REM  ************* 

24310  REM 
24320  PRINT"?]" 

24330  PRINT" WWWlrøBOTilD I SSE  INFORMATIONER, 'DATA  KAM  FINDES  HOS 
24340  PRINT ‘"iKKOMMUHEN  00  I  DIVERSE  SKATTETABELLER.  " 

24350  PR  I  NT"  1™““-" - ”  “ 


3  GETAf: IFAf=""THEN24360 
25000  REM 

25010  REM  ***************** 

25020  PEM  »PROGRAMFUNKTION* 

25030  REM  ***************** 

25040  REM 
25050  PRINT"?]” 

25060  PR I NT “ MiCFTER  DATA INDTASTNING  KAN  FLG.  UDREGNES  " 
25070  PRINT"?]*******#********* ** ********************** 
25080  PRINT" MHWSKTjTiTill .  TRAEKPROCENT.  " 

25090  PPINT "‘iTiTsTiL?.  SKATTEKORTSFRADRAO.  " 

25100  PRINT"ST=m3.  SKAT  I  KR. " 

;=Um  PP!MT'"jTiTiWl.  SKAT  !  ??  AF  SKATPt.O.  "!?"  •?'*  T  " 

25120  PRINTnaStS?i6.  SKAT  I  ?!  AF  A-INDKOMST. "  I 

25130  PPINT"ST=TiKtS.  RESTSKAT  I  KP.  " 

25140  PRIHT"';TiTiTil7.  RESTSKAT  I  ??  AF  KORREKT  SKAT." 

25130  PPINT" WW:TjTiT;T?T:TiTi?;T^iTiT:TiT;liTiHTAST fi " 

25200  GETAf  IFAf =" "THEN25200 
25210  RETURN 


SOFT  Special  53 


HVEM  GI’R  DIG  FREI 


1TIDENS  SOFTWARE? 


Commodore! 

Billedet  viser  bare  et  lille  udpluk  af 
programmer  til  Commodore  64,  ver 
dens  mest  populære  hjemme¬ 
computer. 

Commodore  er  faktisk  det 
computerfirma  i  verden,  der  har 
udviklet  flest  programmer  over¬ 
hovedet,  ca.  2.000  ialt  -  foreløbig! 

I  realiteten  findes  der  et 
program  til  enhver  opgave,  du  kan 
tænke  dig  -  plus  en  hel  del  andre. 
Og  der  kommer  stadig  nye  til  -  der 
står  Commodore  på  fremtidens 
software. 


Commodore 

Fordi  fremtiden  forlængst 
er  begyndt. 


Verdens  sjoveste 
computer- kursus 


Altom 

yy? 'qxbih) 


rencer  og  særtilbud  til  medlemmer¬ 
ne. 

INPUT  computerkurserne  henven¬ 
der  sig  til  alle,  som  vil  lære  mere  om 
data  på  en  forhøjelig  måde.  De  vi¬ 
ste  programlistninger  passer  til  de 
fleste  computere,  -  nemlig  Com- 
modore  64,  Spectrum,  VIC-20,  ZX- 
81,  Dragon,  BBC,  Electron  og  Co- 
lour  Genie. 

Bliv  medlem  af  "Alt  om  Data  Klub¬ 
ben".  Brug  evt.  girokortet  i  "Alt  om 
Data"  nummer  8  eller  rekvirer  et 
nyt  på  tlf.:  01-1 1  28  33.  Eller  send 
os  blot  75  kr.  +  navn  og  adresse. 


I  samarbejde  med  Cavendish  i  Lon¬ 
don  præsenterer  "Alt  om  Data”- 
markedets  sjoveste  og  mest  farve¬ 
rige  computerkursus.  Det  består  af 
ugebladet  INPUT,  der  på  letlæst 
engelsk  giver  dig  alle  de  tips  og 
tricks,  du  har  brug  for,  når  du  arbej¬ 
der  med  de  mest  populære  hjem¬ 
medatamater. 

"Alt  om  Data  Klubben"  sender  dig 
hver  måned  fire  fortløbende  og 
trykfriske  eksemplarer  af  INPUT. 
Hver  gang  får  du  et  væld  af  usæd¬ 
vanligt  flotte  programmer  og  listnin¬ 


”  Alt  om  Data  Klubben”  er  stiftet  af  må¬ 
nedsbladet  "Alt  om  Data",  der  er  Dan¬ 
marks  største  computermagasin.  Her 
kan  du  hver  måned  finde  spændende 
artikler  fra  hele  verden,  grundige  test¬ 
rapporter  og  masser  af  programmer. 


ger.  Plus  en  masse  gode  råd  og  tips 
for  både  begynderen  og  den  mere 
erfarne  hjemmecomputer  ejer. 

Det  er  ikke  dyrt  at  være  medlem  af 
"Alt  om  Data  Klubben".  Hvert  IN¬ 
PUT  magasin  koster  kr.  18,75,  og 
du  bestiller  4  ad  gangen  -  atså  en 
måneds  udsendelse  for  kr.  75. 
Langt  mindre  end  en  investering  i  et 
købeprogram.  Ud  over  INPUT 
kommer  "Alt  om  Data  Klubben"  lø¬ 
bende  med  spændende  konkur¬ 


